BACKGROUND  MONITOR  FOR  THE 
SATCOM  SIGNAL  ANALYZER 


Heinz- Joachim  Niemann 


rtKWC* -»»**«  SC*** 


NAVAL  POSTGRADUATE  SCHOOL 

Monterey,  California 


THESIS 

BACKGROUND  MONITOR  FOR  THE 

SATCOM  SIGNAL  ANALYZER 

by 

Heinz-Joachim  Niemann 

December    1979 

Thesis 

Advisor:                                          J.    E. 

Ohlson 

Approved  for  public  release;  distribution  unlimited 


UNCLASSIFIED 


SECURITY   CLASSIFICATION   OF   THIS  PAGE  (Wttan  Data  1 

Zntmrmd) 

REPORT  DOCUMENTATION  PAGE 

READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 

M»0«T   NUMItA 

2.   GOVT    ACCESSION  NO. 

».     RECIPIENTS  CAT  ALOG  NUMBER 

4      TITLE  find  tukl(f(«| 

BACKGROUND    MONITOR    FOR   THE 
SATCOM    SIGNAL   ANALYZER 

S.     TYRE  OF    REPORT   a   PERIOD  COVERED 

Master's    Thesis; 
December    1979 

•  ■     PERFORMING  ORG.    REPORT   NUMBER 

7.      AUTHORS 

Heinz-Joachim  Niemann 

i       CONTRACT   OR  GRANT   NUMBER^*) 

1.     PERFORMING  ORGANIZATION    NAME    AND   ADDRESS 

Naval   Postgraduate   School 
Monterey,    California    93940 

10.     PROGRAM    ELEMENT.  PROJECT     TASK 
AREA  *   WORK  UNIT   NUMBERS 

II       CONTROLLING  OFFICE   NAME    AND   ADDRESS 

Naval   Postgraduate    School 
Monterey,    California    93940 

12.     REPORT   DATE 

December    19  7  9 

IS.     NUMBER  OF   PAGES 
200 

U      MONITORING   AGENCY    name   a    «CO«!  S  S .  /  /  rlHlormnl  /ram  Controlling  billet) 

IS.     SECURITY   CLASS,   (ol  Ihlm  raport) 

Unclassified 

Ita.     OECLASSIFl  CATION/' DOWN  GRADING 
SCHEDULE 

16.     DISTRIBUTION   STATEMENT  (ol  (Ma  Report) 

Approved    for   public   release;    distribution   unlimited 

17.     DISTRIBUTION  STATEMENT  (ol  (ha  amatrmel  mnlarad  In  Block  20.  II  dlllaranl  from  Kapori) 

II.     SUR«»LEMENTARY   NOTES 

It.     KEY   WORDS  (Contlnua  on  rawataa  aid*  It  naeamaary  and  Idantlty  by  block  nummar) 

Satellite   Signal   Analyzer 
Operator    Interaction 

20.     ABSTRACT  (Continue  on  ravaraa  alda  II  nacaaaawy  and  Identity  »y  Block  rrumaar) 

A   SATCOM   Signal   Analyzer    (SSA)     is   being   developed   by    the 
Satellite   Communications    Laboratory   of    the   Naval    Postgraduate 
School.    The   purpose   of    this    system   is    to   provide   high-speed 
multi-channel   digital    spectrum   analysis    and   characterization   of 
the   outputs   of   UHF   communication    satellite    transponders   while    in 
orbit   and  operating.    A  Digital    Computer    Subsystem  provides    the 
control    for  most   of    the   equipment    in    the    system. 

DD  ,  :°:M7J  1473 
(Page    1) 


EDITION  OF   '  NOV  «•  IS  OBSOLETE 
S/N    0 102-0 14- 6«0 I   ; 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF   THIS  PAOt  (Whan  Data  Kntarad) 


UNCLASSIFIED 


f  CU»WT»  Ct*H'»C»TlQ>|  Q0    TMH  »iatf»Vt.  (->.«•  frntn^ 


The  thesis  documents  a  portion  of  the  software  development  for 
this  subsystem.  This  software  performs  all  operator  interaction 
using  a  Touch  Input:  System  and  a  Graphics  Display.  It  is 
controlled  to  a  large  extent  by  menu  data  stored  in  a  disc  file, 
which  can  easily  be  extended  or  modified. 

Non-trivial  file  management  and  concurrent  processing  of 
several  functions  are  major  characteristics  of  this  software. 


DD     Form       1473 

1  Jan  73  2  UNCLASSIFIED 

a/ N    0102-014-6601  iccuaiTv  classification  o?  this  **atr**»«  Omtm  «•««•»•*) 


Approved  for  public  release;  distribution  unlimited 

BACKGROUND  MONITOR  FOR  THE 
SATCOM  SIGNAL  ANALYZER 


by 


He inz-Joach im  Niemann 
Kapi t aenleu t nan t ,  Federal  German  Navy 


Submitted  in  partial  fulfillment  of  the 
requirements  for  the  degree  of 


MASTER  OF  SCIENCE  IN  COMPUTER  SCIENCE 


from  the 

NAVAL  POSTGRADUATE  SCHOOL 
December  1979 


ABSTRACT 

A  SAT COM  Signal  Analyzer  (SSA)  is  being  developed  by  the 
Satellite  Communications  Laboratory  of  the  "aval  Postgradu- 
ate School.  The  purpose  of  this  system  is  to  provide  high- 
speed multi-channel  digital  spectrum  analysis  and  character- 
ization of  the  outputs  of  UHF  communication  satellite  tran- 
sponders while  in  orbit  and  operating.  A  Digital  Computer 
Suhsystem  provides  the  control  for  most  of  the  equipment  in 
the  system. 

The  thesis  documents  a  portion  of  the  software  develop- 
ment for  this  subsystem.  This  software  performs  all  opera- 
tor interaction  using  a  Touch  Input  System  and  a  Graphics 
Display.  It  is  controlled  to  a  large  extent  by  menu  data 
stored  in  a  disc  file,  which  can  easily  be  extended  or  modi- 
fied. 


Non-trivial  file  management  and  concurrent  processing  of 
several  functions  are  major  characteristics  of  this 
sof  t war e . 
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I.    INTRODUCTION 

A.   BACKGROUND 

This  project  is  part  of  the  SATCOM  Signal  Analyzer  (SSA) 
being  developed  by  the  Satellite  Conmunica t ions  Laboratory 
of  the  Naval  Postgraduate  School.  It  is  a  prototype  that 
will  be  delivered  to  NAVCOMSTA  Stockton  for  operational  and 
reliability  evaluation. 

The  purpose  of  the  SSA  is  to  provide  the  user  a  means  of 
doing  spectrum  monitoring  continuously  and  to  permit  a 
method  of  making  changes  in  the  spectrum  processing  with 
ease.  The  technical  characteristics  of  this  system  are  (1) 
a  minicomputer  for  control,  (2)  array  processors  for 
analysis,  (3)  multiple  receiver  channels,  (A)  real-time 
displays,  and  (5)  hardcopy  output.  F  i  g  •  1 • 1  gives  a  simpli- 
fied diagram  of  this  system. 

A  Digital  Computer  Subsystem  provides  the  control  for 
most  of  the  equipment.  It  is  constructed  around  a  DEC 
PDP-11/34  minicomputer. 
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Figure  1.1 
Structure  of  the  SSA 
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B.  NATURE  OF  THE  PROBLEM 

Real-time  monitoring,  processing  of  operator  I/O,  and 
control  of  equipment  has  to  be  done  by  the  software  of  the 
PDP-11/34  minicomputer.  Beside  processing  of  time-critical 
events  the  operator  should  be  given  the  possibility  of  ini- 
tiating several  functions  which  can  be  distinguished  by 
priority  and  volume.  While  any  number  of  functions  are  be- 
ing performed  it  has  to  be  possible  to  always  initialize 
other  functions  that  are  more  important  at  a  given  time  by 
interrupting  current  ones. 

C.  SCOPE  OF  THIS  REPORT 

This  report  documents  part  of  the  software  development 
for  the  SSA  Digital  Computer  Subsystem.  The  documentation 
will  give  a  general  view  of  the  SSA  Digital  Computer  Subsys- 
tem and  its  software.  It  will  cover  in  detail  the  Back- 
ground (BG)  Monitor  which  performs  operator  interaction  and 
certain  hardware  control  functions.  Also  the  Support 
Software  which  was  developed  for  the  BO  Monitor  will  be 
presented.  Appendix  A  lists  the  present  software  and  docu- 
menta  t  ion . 
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II .    SSA  DIGITAL  COMPUTER  SUBSYSTEM 

A.   INTRODUCTION 

The  operation  of  the  5  5  A  is  controlled  by  the  SSA  Digi- 
tal Computer  Subsystem.  This  subsystem  processes  various 
inputs  from  array  processors,  frequency  receivers,  AM/FM  re- 
ceivers, and  operator  control  devices.  It  controls  syn- 
thesizers, receivers,  a  hardcopy  unit,  and  monitoring  dev- 
ices. Fig.  2.1  illustrates  the  SSA  Digital  Computer  Subsys- 
tem. 

E.   SOFTWARE  REQUIREMENTS 

The  Digital  Computer  Subsystem  performs  different  kinds 
of  functions.  Processing  of  time-critical  functions  has  the 
highest  priority  in  this  system.  Operator  interaction  is 
processed  at  the  next  priority  level.  It  includes  functions 
like  change  of  system  parameters,  requests  for  certain 
displays,  and  hardcopy.  If  none  of  the  above  processing  has 
to  be  done,  lower  priority  functions  will  be  executed. 
These  "Background  Tasks"  include  hardware  operation  tests, 
report  generation,  post  analysis,  etc. 
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Figure  2.1 
SSA  Digital  Computer  Subsystem 
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Ill  .    SSA  MONITOR  SOFTWARE 

A.  INTRODUCTION 

The  SSA  Monitor  software  falls  into  two  categories.  The 
System  Software  will  be  a  resident  part  of  the  SSA.  The 
Support  Software  is  used  to  create  a  data  file  which  pro- 
vides the  System  Software  with  necessary  information  to 
display  images  on  the  HP  Terminal  and  process  operator  in- 
puts. The  System  Software  development  has  been  accomplished 
in  two  steps.  Most  of  the  program  editing,  testing,  and  de- 
bugging was  done  using  the  UNIX  operating  system.  The 
second  step  was  to  transfer  the  system  software  to  RT-11  and 
perform  final  testing  and  debugging.  The  Support  Software 
was  entirely  developed  under  UNIX. 

The  programming  language  RATFOR  was  used  for  software 
development . 

This  chapter  gives  an  overview  of  the  different  software 
components.  More  detailed  information  about  the  BG  Monitor 
software  is  presented  in  the  following  chapters. 

B.  OPERATING  SYSTEMS 

There  were  several  the  reasons  for  using  two  different 
operating  systems  in  the  development  of  the  system  software. 
RT-11,  which  was  chosen  for  the  SSA  Digital  Computer  Subsys- 
tem, had  some  disadvantages  compared  to  UNIX.  The  editing 
functions  and  the  file  management  of  UNIX  were  superior  to 
RT-11.  Also  RT-11  allowed  no  time-sharing.  In  addition  the 
UNIX  RATFOR  preprocessor  could  be   used   to   create   FORTRAN 


16 


programs.  This  allowed  programming  in  a  more  structured 
way.  The  RATFOR  programs  were  easier  to  write,  read,  test, 
and  debug. 

RT-11  in  its  Foreground/Background  version  is  a  single 
user,  two  job  system  restricted  to  2  8  K  words  of  memory.  In 
this  foreground/ backg round  environment,  two  independent  pro- 
grams can  reside  in  memory.  The  foreground  program  is  given 
priority  and  executes  until  it  relinquishes  control  to  the 
background  program;  the  background  program  executes  until 
control  is  again  required  by  the  foreground  job. 

RT-11  provides  the  user  with  several  programmed  re- 
quests. The  feature  of  invoking  user-written  completion 
routines  was  used  to  a  large  extent  in  the  BG  Monitor.  A 
completion  routine  has  to  be  scheduled  using  a  programmed 
request.  It  then  is  entered  in  a  queue  and  will  be  called 
by  RT-11  when  the  specified  event  has  happened.  Such  an 
event  may  be  a  certain  time  lapse  or  the  completion  of  some 
I/O.  Thus  RT-11  provided  five  different  levels  of  program 
execution: 

-  interrupt  routine  execution 

-  foreground  completion  routine  execution 

-  foreground  program  execution 

-  background  completion  routine  execution 

-  background  program  execution 

C.   RATFOR  LANGUAGE 

The  programming  language  FORTRAN  was  chosen  to  be  imple- 
mented  in   the  SSA  Digital  Computer  Subsystem  running  under 
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RT-11.  As  FORTRAN  is  an  unpleasant  language  to  sone  extent, 
the  RATFOR  preprocessor  of  the  UNIX  system  was  used  to  con- 
ceal the  main  deficiencies  of  FORTRAN.  Thus  decent  control 
flow  statements,  free  form  input,  and  some  other  features 
were  available.  RATFOR  programs  were  easier  to  write,  to 
read,  to  debug,  and  to  maintain. 

D.   SYSTEM  SOFTWARE 

1 .  Foreground  Monitor 

This  program  mainly  is  interrupt  driven  to  control 
certain  time  critical  processes,  like  recording  data  on  disc 
and  processing  data  from  array  processors.  The  Foreground 
(FG)  Monitor  is  a  resident  part  of  the  System  Software.  Its 
functions  are  controlled  by  parameters  set  by  BC  Monitor. 

2 .  Background  Monitor 

The  main  functions  of  this  program  are  processing  of 
operator  interaction  and  low  priority  BG  Tasks.  It  executes 
as  a  background  job.  Part  of  the  BG  Monitor  is  resident, 
whereas  3G  Tasks  are  stored  on  an  image  file  to  be  swapped 
in  by  RT-11  when  their  functions  are  needed.  The  following 
chapters  will  further  document  the  BG  Monitor. 

3 .  Foreground/Background  Communication 

FG  Monitor  and  BG  Monitor  communicate  with  each  oth- 
er using  the  communication  services  provided  by  RT-11.  They 
allow  sending  data  messages  in  either  direction.  The  data 
that  has  to  be  shared  by  both  Monitors  is  the  Parameter 
Block  (PB)  and  the  Status  Block  (SB).  The  PC  contains  all 
parameters   to   control  the  functions  of  the  FG  Monitor.   It 
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is  updated  by  the  BG  Monitor  and  then  as  a  whole  sent  to  the 
FG  Monitor.  The  SB  provides  all  information  about  the  sys- 
tem status.  It  is  updated  by  the  FG  Monitor  and  on  request 
transferred  to  the  3G  Monitor. 

E.   SUPPORT  SOFTWARE 
L  .   In t  roduc  t  ion 

The  functions  of  the  BG  Monitor  are  to  a  large  ex- 
tent based  on  data  stored  on  a  menu  file.  These  menus  con- 
tain all  information  necessary  to  display  a  requested  image 
at  the  operator  control  console  and  to  process  related  in- 
puts from  the  operator.  This  menu  file  is  created,  updated 
and  checked  by  the  Support  Software  which  runs  off-line 
under  UNIX. 

2 .  Menu  Editor 

This  program  updates  the  menu  file  by  processing  an 
input  file  that  contains  necessary  information  in  standard 
formats.  Based  on  general  information  about  a  menu  it  gen- 
erates a  set  of  display  commands  to  create  an  image.  Also, 
all  necessary  information  to  process  inputs  from  either  the 
keyboard  or  the  Touch  Input  System  is  prepared  and  stored  in 
the  menu  file. 

3 .  Menu  Checker 

This  program  allows  checking  of  all  information  that 
is  stored  on  the  Menu  File.  It  extracts  all  requested  in- 
formation and  presents  it  in  a  readable  format.  Thus  any 
modification  of  the  menu  file  can  be  verified. 
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IV.        BACKGROUND    MONITOR 

A.  INTRODUCTION 

This  chapter  will  present  the  Background  Monitor,  which 
executes  in  the  background  environment  of  RT-11.  The 
hardware  used  by  the  Background  Monitor  will  be  addressed 
first.  Then  the  general  software  structure  and  detailed 
software  description  will  follow. 

Special  terminology  used  to  document  the  Background  Mon- 
itor will  be  introduced  when  appearing  the  first  time  in  the 
tex t  . 

B.  HARDWARE  ENVIRONMENT 

1 .  In  t  rod  uc  t ion 

The  hardware  used  for  the  Background  Monitor  was 
constructed  around  the  DEC  PDP-11/34  minicomputer.  Most  of 
the  equipment  was  standard  peripheral  devices.  A  dual  disc 
drive  was  used  which  provided  an  on-line  storage  capacity  of 
80  megabits.  A  daisy  wheel  printer  terminal  was  used  to 
provide  hardcopy  output  and  its  keyboard  served  as  a  backup 
for  the  Touch  Input  System.  Off-line  storage  for  transfer- 
ring extracted  output  data  and  software  was  provided  by  a 
magnetic  tape  unit.  A  hardcopy  unit  was  used  to  output  ex- 
act copies  of  graphics  displays.  Finally  the  HP  Terminal 
and  the  Touch  Input  System  have  to  be  addressed.  Their  main 
features  are  described  in  the  following  paragraphs. 

2 .  Hewlett-Packard  2649A  Terminal 

This  terminal  has  a  5  inch  by   10   inch   rectangular 
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display  providing  24  lines  of  up  to  80  characters.  Some  of 
the  terminal's  capabilities  are  screen  up  and  down  rolling, 
insertion  and  deletion  of  characters  and  lines,  cursor  sens- 
ing and  addressability,  tabulation,  margin  setting,  line 
drawing,  and  different  character  sets. 

The  image  is  self-refreshing  and  portions  of  the  im- 
age  can  be  displayed  in  different  modes,  like  blinking,  re- 
verse, halfbright,  or  a  combination  thereof.   All  operations 
are  controlled  by  the  terminal's  microprocessor. 
3 .   Carroll  Touch  Input  System 

The  system  provides  a  means  for  the  operator  to  in- 
teract with  the  BG  Monitor.  The  Touch  Input  System  is  im- 
plemented by  utilizing  a  scanning  infrared  beam  technology. 
A  panel  is  attached  to  the  Hewlett-Packard  (HP)  2649A  Termi- 
nal in  such  a  way  that  the  screen  is  surrounded  by  LED  em- 
itters on  the  bottom  and  left  side  and  pho t o t rans i s t or 
detectors  on  the  right  side  and  top.  Thus  they  form  a  grid 
of  infrared  light  beams  across  the  display  area.  To  ac- 
tivate the  input  system,  the  operator  touches  the  CRT  screen 
and  then  the  X,Y  coordinates  of  the  touch  point  are 
transmitted  to  the  host  computer. 

The  Touch  Input  System  provides  some  benefits  in 
contrast  to  a  keyboard.  (1)  The  operator  does  not  have  to 
alternate  between  looking  at  the  display  for  instructions 
and  the  keyboard  to  respond  to  the  system.  (2)  The  touch 
targets  can  be  located  at  different  positions;  thus  position 
becomes  a  software  design  parameter.   (3)  Only  the  valid  in- 
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put  options  at  a  particular  situation  need  to  be  displayed, 
thus  eliminating  confusion  and  input  errors.  ( 4  )  The  legend 
of  each  touch  target  is  determined  by  the  data  displayed  on 
the  screen.  It  is  easy  to  change  and  there  is  a  large 
variety  of  possible  legends. 

C.   SOFTWARE  STRUCTURE 
1  .   Introduction 

There  existed  two  constraints  for  the  development  of 
the  BG  Monitor.  (1)  There  was  a  limit  in  available  memory 
in  the  minicomputer  and  (2)  the  execution  time  had  to  be 
fast  enough  to  react  to  operator  requests  in  quasi  real 
time. 

For  these  reasons  there  was  no  display  image  genera- 
tion done  by  the  BG  Monitor.  Rather  the  set  of  display  com- 
mands for  each  image  (menu)  were  stored  on  disc  in  the  Menu 
File.  Additionally,  all  BG  Tasks,  which  perform  mutually 
independent  functions,  were  linked  as  memory  overlays  on  a 
RT-11  memory  image  file.  They  were  swapped  in  by  RT-11  when 
they  were  to  be  executed.  Thus  the  structure  of  the  BG  Mon- 
itor shows  a  computer  resident  program  part  (BG  Controller) 
and  non-resident  program  parts  (BG  Tasks). 

The  RT-11-provided  swapping  of  BG  Tasks  allows 
memory  independent  growth  of  the  BC  Monitor.  Only  the  size 
of  a  BG  Task  is  limited,  not  their  number. 

Besides  this  extendability,  ease  of  maintainability 
was  supported.  As  far  as  possible,  program  and  data  were 
separated.   Sharing  of  data  by   the   program's   modules   was 
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kept  minimal. 

2.  Background  Controller 

This  resident  part  of  the  3G  Monitor  was  designed  to 
be  highly  independent  of  any  BG  Task  or  data  on  the  menu 
file.  Its  components  are  the  Executive  and  several 
Managers.  The  BG  Controller  processes  requests  by  the 
operator  or  any  of  the  BG  Tasks. 

Two  different  levels  of  program  execution  are  imple- 
mented. Most  of  the  BG  Controller's  modules  run  on  a  com- 
pletion routine  level  (scheduled  by  the  program,  called  by 
RT-11).  The  remaining  parts  execute  as  BG  mainline  pro- 
grams . 

3 .  Background  Tasks 

A  BG  Task  performs  a  group  of  related  functions. 
The  tasks  are  independent  of  each  other.  Only  one  BG  Task 
is  executed  at  a  time.  Using  the  overlay  feature  of  RT-11, 
these  BG  Tasks  all  reside  in  the  same  memory  area. 
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V.    BACKGROUND  CONTROLLER 

A.    INTRODUCTION 

The  folio wing  paragraphs  give  a  detailed  documentation 
of  the  resident  part  of  the  BG  Monitor.  Additional  informa- 
tion is  embedded  in  the  program  listings. 

The  BG  Controller  has  the  following  components: 

-  Executive 

-  Control  I/O  Manager 

-  Input  Nana  ge  r 

-  Control  Command  Manager 

-  Menu  Manager 

-  Parameter  Block  Manager 

-  Log  Manager 

-  Message  Manager 

The  Executive  consists  of  the  main  program  and  some  Com- 
mon Routines  called  by  other  BG  Managers.  Any  request  for 
operator  input  by  the  Executive  or  a  EC  Task  is  processed  by 
the  Control  I/O  Manager.  Operator  inputs  from  either  key- 
board or  Touch  Input  System  are  processed  by  the  Input 
Manager.  The  Control  Command  Manager  interpretes  inputs  for 
the  BG  Controller.  The  Menu  Manager  updates  the  display  im- 
age and  provides  the  BG  Controller  with  all  information 
about  possible  inputs.  Updating  of  the  Parameter  31ock  for 
the  FC  Monitor  is  done  by  the  Parameter  Block  Manager.  If 
requested  the  Log  Manager  logs  all  operator  inputs.  Finally 
the  Message  Manager  displays  and  erases  all  warning  messages 
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and  input  related  messages. 

Host  of  the  BG  Controller  Managers  execute  on  completion 
routine  level.  The  Input  Manager  re-schedules  itself 
periodically  to  process  any  operator  input.  Thus  this 
Manager  and  all  other  Managers  called  fron  it  (Control  Com- 
mand Manager,  Parameter  Block  Manager,  Log  Manager)  execute 
on  completion  routine  level. 

The  Menu  Manager  has  to  perform  certain  functions  after 
some  time  lapse  (i.e.  erasing  of  a  displayed  menu  some  time 
after  an  input  occurred).  On  the  other  hand  the  Menu 
Manager  may  be  invoked  based  on  a  BG  Task  request  or  based 
on  an  operator  input.  Scheduling  the  call  takes  advantage 
of  the  RT-11-provided  queueing  function  and  thus  avoids  any 
conflict . 

Similar  reasoning  applies  to  the  Message  Manager  being  a 
completion  routine.  It  may  be  invoked  by  all  other  BG  Moni- 
tor programs,  which  either  run  on  completion  routine  level 
or  as  BG  mainline  programs.  Fig.  5.1  shows  the  structure  of 
the  BG  Controller. 
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Figure  5.1 
Structure  of  the  BG  Controller 


Executive 


J£ 


\/ 


BG  Tasks 


\' 


Control  I/O  Manager 


Operator  Input 


* 


Input  Manager 


XL. 


Control 
Command  Mgr. 


_i±L 


Log 

Mgr, 


_\<L 


PB  Mgr. 


\£_ 


V      ± 


I 


Menu  Manager 


± 


v 


\l     \b    M/  si 


Message  Manager 


Legend:  *  Completion  Routine 

Called  as  Mainline  Program 

Called  as  Completion  Routine 


26 


The  BG  Controller  provides  the  operator  with  an  in- 
teresting feature.  It  is  possible  to  interrupt  any  active 
function  of  this  program  by  selection  of  another  function. 
This  may  create  a  chain  of  unfinished  functions,  and  when 
the  last  one  is  finished  the  former  one  automatically  will 
be  invoked  again. 
Example : 

The  operator  has  started  a  BG  Task  that  performs  certain 
hardware  tests.  While  this  is  being  done  he  nay  invoke 
another  function  to  have  some  documentation  displayed. 
While  doing  this,  the  operator  wants  the  system  status  and 
he  starts  another  function  to  display  the  status.  Even  now 
he  may  invoke  again  an  already  interrupted  function. 

When  the  operator  disables  an  active  function,  the  most 
recent  interrupted  function  will  continue. 

The  following  text  uses  certain  fixed  terras,  whose  mean- 
ings are  given  below: 

-  button:  displayed   button   on   the   screen 

-  permanent  button:  button  always  being  displayed   on 

the  screen  at  a  fixed  location 
display  image  with  all  possible 
input  information 

information  about  a  possible  input 
identification  of  a  certain  menu; 
it  is  the  number  of  a  menu's  first 
data  record  in  the  menu  file 

-  task  menu:  menu  which  is  initiated  by  any   BG 


-  menu : 

-  input  option: 

-  menu-id : 
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Task 
-  controller  menu:   menu   which   is   initiated   by  the 

resident  3G  Controller 


B.   COMMON  DATA 

This  paragraph  will  docunent  important  common  data  which 
are  used  by  more  than  one  BG  Manager. 

1 .  Menu  Table 

The  one-dimensional  array  "mentbl*  is  used  to 
reserve  memory  locations  to  store  display  image  and  input 
options  of  a  menu.  The  lower  part  of  this  array  contains 
the  input  options  of  the  permanent  buttons.  This  informa- 
tion stays  there  all  the  time.  The  upper  half  of  the  array 
is  used  to  temporarily  store  menu  records  with  display  im- 
ages. After  the  display  image  has  been  transferred  to  the 
HP  terminal,  this  array  will  store  the  remaining  input  op- 
tions of  a  specific  menu. 

2 .  Menu  Stack 

The  BG  Controller    allows    certain    menus    to 

'overwrite'  other  menus  being  displayed.  In  order  to  get 
back  to  previously  displayed  menus,  their  menu-ids  are 
stacked  in  'menstk'.  This  menu  stack  can  store  up  to  20 
menu-ids.  Should  an  overflow  occur,  the  whole  stack  will  be 
saved  in  the  menu  stack  file.  In  case  there  is  a  stack  un- 
derflow and  a  menu  stack  is  saved  in  the  file,  it  will  be 
retrieved  from  the  file.  Thus  the  last  initiated  menu  is 
displayed  first  (last  in,  first  out). 


3 .   Me  s  sage  Stack 

The  array  'msgstk'  is  used  as  a  stack  for  saved 
warning  messages.  It  consists  of  an  upper  and  a  lower  half. 
In  case  of  a  stack  overflow,  the  lower  half  is  saved  in  the 
message  stack  file  to  provide  empty  entries  for  any  more 
warning  messages.  Then  new  messages  always  will  be  entered 
into  the  lower  half  and  saved  in  the  file  if  necessary. 

Retrieval  of  warning  messages  from  the  stack  is  done 
from  the  upper  half.  If  it  is  empty,  the  oldest  saved  stack 
in  the  menu  file  will  be  stored  in  the  upper  half  of  the 
stack  . 

This  method  assures  that  the  oldest  messages  will 
always  be  displayed  next  (first  in,  first  out).  To  save 
memory,  the  messages  are  stored  in  variable  length  format. 

C.   EXECUTIVE 

The  Executive  of  the  BG  Controller  consists  of  the  main 
program  and  the  Common  Routines.  The  Common  Routines  are 
used  by  more  than  one  BG  Manager.  The  Executive  is  called 
by  RT-11  when  the  BG  Controller  is  started  and  executes  as  a 
BG  mainline  program.  The  Executive  does  not  return  control 
to  RT-11;  rather,  it  stays  in  an  infinite  loop.  The  overall 
algorithm  is  given  below: 

Preset  all  Common  Data 

Open  all  files 

Initialize  HP  Terminal 

Schedule  Menu  Manager  to  display  initial  start  menu 

Do  forever 


29 


Get  next  B  C  Task  identifier  from  Control  I/O  Manager 

Call  BG  Task 
Close  all  files 
Thus  the  Executive  receives  the  request  for  the  next  BG  Task 
from   the   Control  I/O  Manager  and  then  transfers  control  to 
the  selected  BG  Task.   The  following  paragraphs  discuss   the 
Common  Routines. 

1  .   Common  Routine  'endfbk' 

Feedback  to  any  operator's  input  is  done  in  the  fol- 
lowing way.  There  is  always  an  acoustic  feedback.  Per- 
manent buttons  on  the  screen  are  displayed  in  a  reverse  mode 
if  the  related  function  is  active.  Other  buttons  are 
displayed  in  reverse  mode  after  they  have  been  selected  by 
the  operator.  The  permanent  buttons  for  hardcopy  are 
displayed  in  a  reverse  mode  for  about  one  second.  If  these 
functions  are  activated,  the  Input  Manager  reverses  the  but- 
ton display  and  schedules  this  Common  Routine  to  be  executed 
one  second  later.  It  then  will  display  the  button  in  the 
normal  mode  again. 

2.   Common  Routine  'enlianc' 

This  routine  performs  an  enhancement  of  a  displayed 
button  on  the  screen.  It  retrieves  the  necessary  button 
coordinates  from  the  input  options  and  sends  a  command 
string  to  the  HP  terminal  to  perform  the  requested  enhanc- 
ment  . 
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3.  Common  Routine  'errmsg' 

This  routine  was  implemented  for  two  reasons.  (1) 
The  Message  Manager  which  is  responsible  for  display  of  any 
operator  input  related  messages  or  warning  messages  is  a 
completion  routine  and  may  not  be  called  by  programs  execut- 
ing as  a  BG  mainline  program  (e.g.  BC  Task).  Thus  the  mes- 
sages have  to  be  stored  temporarily  until  the  Message 
Manager  is  called.  (2)  There  is  only  one  routine  processing 
all  requests  to  display  a  message. 

There  is  a  buffer  for  only  one  input-related  mes- 
sage; the  Message  Manager  will  be  invoked  to  display  the 
message  before  the  next  operator  input  is  possible.  Warning 
messages  may  be  created  in  a  larger  number  until  the  next 
call  of  the  Message  Manager.  Thus  the  variable  length  mes- 
sages are  stored  in  a  buffer  large  enough  to  save  230  char- 
acters of  text. 

4 .  Common  Routine  'asclnt' 

All  the  information  on  the  Menu  File  is  coded  in 
ASCII.  In  order  to  store  a  three  digit  integer  number  in 
two  bytes  (one  word),  such  a  number  is  converted  using  the 
following  transformation: 

Upper  Byte  =  integer/30  +  40 

Lower  Eyte  =  integer  modulo  3C  +  40. 
This  ensures  that  both  bytes  will  contain  valid  ASCII   char- 
acters.   This  routine  will  convert  such  a  coded  number  into 
an  integer. 
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D.  CONTROL  I/O  MANAGER 

This  is  a  BG  mainline  program.  It  is  called  by  either 
the  Executive  or  any  BG  Task  to  process  a  request  for  input 
from  the  operator.  These  calls  are  mutually  exclusive;  ei- 
ther the  Executive  is  executing  or  it  has  transferred  pro- 
gran  control  to  a  BG  Task.  The  Control  I/O  Manager  returns 
only  when  a  valid  operator  input  has  been  made.  Thus  it 
remains  looping  until  the  Input  Manager  provides  a  valid  in- 
put. If  a  BG  Task  requests  that  a  new  menu  has  to  be 
displayed,  the  Control  I/O  Manager  will  schedule  the  immedi- 
ate call  of  the  Menu  Manager. 

E.  INPUT  MANACER 

This  program  executes  on  completion  routine  level.  Thus 
it  will  not  be  interrupted  by  any  BG  Monitor  program.  It  is 
initially  called  by  the  Executive  and  then  it  re-schedules 
its  call  every  0.1  seconds  by  using  an  RT-11  programmed  re- 
quest. It  examines  the  com man  data  'flag'  to  check  whether 
any  operator  input  has  ocurred. 

Upon  an  input  from  the  operator  the  Log  Manager  will  be 
called  to  log  the  command  if  requested  and  feedback  will  be 
provided.  If  the  chosen  input  option  requests  a  new  menu  to 
be  displayed  the  Menu  Manager  will  be  scheduled  to  display 
it.  Otherwise  the  currently  displayed  menu  will  be  erased 
one  second  later.  In  case  of  an  input  from  a  permanent  but- 
ton the  Control  Command  Manager  is  called.  Note  that  all 
programs  called  by  the  Input  Manager  also  execute  on  comple- 
tion routine  level. 
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-  STATUS: 

-  SELECT: 

-  CONTROL: 

-  HELP: 


F.   CONTROL  COMMAND  MANAGER 

This  program  processes  all  inputs  from  permanent  buttons 
or  any  controller  menu  buttons.   The  permanent  buttons  are: 

-  PRINT  CRT1:   Make  a  hardcopy  of  the  graphics 

display  on  CRT  1 

-  PRINT  CRT2:   Make  a  hardcopy  of  the  graphics 

display  on  CRT  2 

Display  the  system  status 

Select  a  new  function 

Change  SSA  control  parameters 

Provide  help  to  the  operator 

with  respect  to  further  actions 

-  ACKNOWLEDGE:  Acknowledgement  of  a  displayed  warning 

niesage  ;  erase  it 

The  permanent  buttons  Status,  Select,  Control,  and  Help 
function  in  an  on/off  mode.  When  they  are  chosen  the  first 
time,  the  function  is  initiated,  the  menu  will  be  displayed, 
and  the  permanent  button  will  become  enhanced.  When  an  ac- 
tive function  (permanent  button  is  enhanced)  is  chosen,  the 
function  will  be  deactivated,  the  button  will  be  displayed 
normally,  and  any  waiting  menu  or  the  initial  start  menu 
will  be  displayed. 

If  a  new  BG  Task  is  to  be  started,  any  old  Task  menu 
will  be  erased  and  the  identifier  for  the  new  BG  Task  is 
saved  to  be  returned  to  the  Executive. 

Any  input  request  to  change  the  current  PB  will  be  pro- 
cessed by  the  Parameter  Block  Manager. 
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G.   MENU  MANAGER 

This  program  is  the  most  important  part  of  the   BG   Con- 
troller.    It   executes   on   completion  routine  level  and  is 
responsible  for  updating  the  display  on  the  HP  Terminal   and 
updating  the  valid  input  options. 
1  .   Menu  Display 

This  paragraph  gives  a  description  of  the  display 
layout  used  to  display  menu  information.  There  are  three 
different  areas  on  the  screen.  (1)  The  permanent  buttons 
are  displayed  as  a  column  at  the  left  side  of  the  screen. 
They  will  never  be  changed  during  program  execution.  (2) 
The  bottom  lines  of  the  screen  are  reserved  to  display 
operator  input  related  messages  and  warning  messages.  (3) 
The  remaining  field  is  used  to  display  any  menu  initiated  by 
the  BG  Controller  or  any  BG  Task.  Fig.  5.2  displays  the 
layout . 

When  a  new  menu  is  being  displayed,  the  menu  field 
will  be  erased  first.  To  erase  the  image  on  a  line,  the  im- 
age can  be  overwritten  with  blank  characters  (quite  slow)  or 
it  can  be  erased  up  to  the  end  of  the  line.  The  latter 
method  is  faster  and  has  been  implemented.  This  is  the  rea- 
son why  the  permanent  buttons  are  displayed  on  the  left  side 
of  the  screen. 

As  the  permanent  buttons  always  are  displayed  at  the 
same  locations,  the  operator,  once  familiar  with  the  layout, 
can  easily  locate  these  buttons. 
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Figure  5.2 
HP  Terminal  Display  Layout 
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2 .  Menu  Stack  'menstk' 

The  BG  Controller  allows  the  operator  to  have  ini- 
tiated several  functions  at  a  time.  Thus  the  Menu  Manager 
has  to  keep  track  of  all  functions  and  their  related  menus. 
This  is  done  using  a  menu  stack.  The  top  of  this  stack  al- 
ways holds  the  controller  menu  being  displayed.  If  a  new 
controller  menu  is  requested,  it  is  placed  on  the  stack  and 
it  will  be  displayed.  The  menu  stack  holds  20  menu  identif- 
ier. If  a  stack  overflow  occurs,  it  is  saved  on  disc  in  the 
menu  stack  file.  In  case  of  a  menu  stack  underflow,  an  ex- 
isting stack  from  the  menu  stack  file  is  retrieved. 

3 .  Menu  Hierarchy 

There  exist  three  different  kind  of  menus  in  the  BG 
Monitor.  (1)  The  Initial  Start  Menu  contains  the  image  of 
the  permanent  buttons  and  is  displayed  at  the  program  start. 
(2)  The  display  of  Controller  Menus  is  initiated  by  select- 
ing a  permanent  button  or  a  button  of  another  Controller 
Menu.  (3)  Task  Menus  are  initiated  by  3G  Tasks.  There  ex- 
ists only  one  Task  Menu  at  a  time  in  the  Menu  Manager.  Its 
menu  identifier  is  stored  in  'icurtm'.  It  is  either  being 
displayed  or  waiting  to  be  displayed. 

The  Menu  Manager  displays  a  new  menu  using  this 
priority  scheme:  First  any  Controller  Menu  in  the  menu  stack 
is  selected.  If  there  is  none,  any  waiting  Task  Menu  is 
considered.  If  there  is  none,  the  Initial  Start  Menu  will 
be  displayed  again. 
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k  .   Me  nu  St  rue  ture 

All  menus  are  organized  in  a  tree  structure.  Each 
menu  provides  information  about  its  predecessor  menu  and 
each  of  its  buttons  nay  request  a  successor  menu.  Thus  it 
is  possible  to  always  go  up  and  down  within  this  menu  tree. 
The  Menu  Manager  keeps  track  of  all  paths  within  this  tree 
structure  that  have  been  selected  by  initiation  of  one  or 
more  functions.  Actually  only  the  menu  at  the  bottom  of  a 
particular  path  has  to  be  saved.  A  predecessor  menu  always 
can  be  determined  uniquely.  Its  menu-id  is  part  of  the  in- 
formation provided  by  a  menu  and  is  stored  for  all  menus  be- 
ing displayed  in  'ipredm' . 

The  menu  stack  'menstk'  saves  the  menu-ids  of  all 
menus  at  the  bottom  of  a  path.  Thus  a  new  menu  of  the  same 
function  just  replaces  the  predecessor  menu  on  top  of  the 
menu  stack.  A  new  menu  of  a  different  function  is  placed  on 
top  of  the  stack.  If  an  active  function  is  deactivated 
(erasing  of  the  menu  at  the  bottom  of  a  path),  the  next  menu 
in  the  stack  will  invoke  that  function  having  been  active 
previously. 

This  method  provides  the  possibility  for  an  operator 
to  initiate  as  many  functions  as  he  wishes.  This  allows  him 
to  have  several  functions  at  intermediate  steps  at  the  same 
time.  In  addition,  a  BG  Task  may  run  and  perform  a  variety 
of  actions  that  do  not  require  operator  inputs. 

Many  activities  within  a  function  only  require  the 
display  of  another  menu.   Thus  a  great  deal  of  logic  and  d  e  - 
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cisions  is  built  into  the  menu  structure.    This   permits   a 
simpler  program  logic  and  shifts  many  changes  of  the  BG  Mon- 
itor towards  an  update  of  the  menu  file,  which   requires   no 
program  modification. 
5 .   Functions 

Depending  on  the  requested  function  and  the  status 
of  the  menu  stack  these  related  actions  will  follow: 
(1)  Update  of  the  menu  stack,  (2)  retrieval  and  display  of 
the  menu's  image,  (3)  retrieval  and  storage  of  the  input  op- 
tions, and  (4)  update  of  any  button  enhancements.  Fig.  5.3 
displays  the  overall  program  structure. 
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Figure  5.3 
Structure  of  the  Menu  Manager 
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H.   PARAMETER  BLOCK  MANAGER 

The  actions  of  the  FG  Monitor  are  based  on  information 
stored  in  the  Parameter  Block.  (PB).  These  parameters  may  be 
modified  by  the  operator  independent  of  any  BG  Task  running. 
The  related  operator  interaction  is  processed  by  the  Parame- 
ter Block  Manager. 

The  PB  Manager  saves  all  new  parameters  in  the  PB. 
After  completion  of  the  update,  the  PB  is  sent  to  the  FG 
Monitor  using  the  communication  services  provided  by  RT-11. 
The  PB  must  not  be  sent  to  the  FC  Monitor  before  the  whole 
update  is  completed.  This  could  result  in  invalid  interre- 
lationship between  the  parameters  available  to  the  FG  Moni- 
tor (i.e.  some  parameter  changes  have  to  be  done  simultane- 
ously) . 

I.   LOG  MANAGER 

When  requested  all  operator's  inputs  will  be  logged  and 
saved  in  the  log  file.  The  plain-English  log  text  can  be 
retrieved  from  the  input  option  information  stored  in  common 
data.  The  Log  Manager  sequentially  writes  these  log  texts 
onto  the  disc.  The  contents  of  the  log  file  can  be  printed 
to  trace  all  the  operator's  actions. 

K.   MESSAGE  MANAGER 

The  Message  Manager  is  responsible  for  updating  the  mes- 
sage field  and  the  enhancement  of  the  ACKNOWLEDGE  button  on 
the  HP  Terminal  display.  It  processes  requests  by  either 
the   BG   Controller   or  any  BG  Task  to  display  or  erase  mes- 
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sages.  These  messages  nay  be  initialized  by  an  operator's 
input  or  by  any  failure  detected  by  the  BG  Monitor.  These 
two  types  are  handled  differently.  Only  one  operator  input 
related  message  is  expected  to  be  existent  when  the  Message 
Manager  is  called  by  RT-11.  It  is  assuned  that  the  operator 
has  no  chance  to  do  another  invalid  input  before  the  Message 
Manager  processes  the  first  illegal  input. 

Also  it  is  assuned  that  a  BG  Task  only  generates  one 
warning  nessage  before  the  Message  Manager  will  be  called. 
This  is  because  a  EG  Task  executes  as  a  raainline  progran. 
If  it  detects  an  error  it  schedules  the  Message  Manager,  a 
completion  routine,  at  once.  Thus  the  Message  Manager  will 
be  called  and  the  BG  Task's  execution  will  be  interrupted. 
Warning  messages  generated  by  the  BG  Controller,  however, 
may  be  generated  when  executing  on  completion  routine  level. 
As  these  completion  routines  do  not  interrupt  each  other, 
there  may  be  more  than  one  warning  message  to  be  processed 
by  the  Message  Manager  when  it  is  called. 
1  .    Input  Related  Messages 

When  any  program  detects  an  illegal  operator  input 
it  places  a  message  text  in  'inpmsg'  and  schedules  the  Mes- 
sage Manager  to  be  executed  at  once.  The  Message  Manager 
then  displays  this  message  on  the  related  line  within  the 
message  field  on  the  screen.  Any  other  input  related  mes- 
sage being  displayed  will  be  overwritten.  Thus  the  message 
always  responds  to  the  last  operator's  input. 

Any  input  related  message  will  be   erased   when   the 
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operator  does  any  input.   The  Input  Manager  always  schedules 
the  Message  Manager  to  erase  any  existing  input  related  mes- 
sage when  a  valid  input  has  been  made.   In  case  of  an   ille- 
gal input  the  old  message  will  be  overwriten  by  a  new  one. 
2 .   Warning  Messages 

The  text  of  a  warning  message  generated  by  a  B  C  Task 
will  be  in  ' i  wn  s  g ' .  Warning  messages  generated  by  the  BG 
Controller  are  saved  in  'msgw'. 

If  no  warning  message  is  being  displayed  the  new 
message  will  be  written  on  the  screen.  If  t  h  ere  is  already 
a  warning  message  being  displayed  the  new  one  will  be  saved 
on  the  message  stack.  In  case  of  a  stack  overflow  it  will 
be  saved  on  disc  in  the  message  stack  file.  The  Message 
Manager  will  retrieve  all  stacked  messages  using  the  first- 
in  first-out  (FIFO)  scheme.  The  message  stack  is  divided 
into  a  lower  and  an  upper  half.  A  read  index  points  to  the 
next  message  to  retrieve  from  the  stack;  a  write  index 
points  to  the  next  free  entry  in  the  stack.  The  read  index 
always  stays  in  the  lower  half  of  the  stack.  If  only  the 
lower  stack  half  is  used,  the  write  index  stays  in  this 
half.   Else  it  always  points  to  entries  in  the  upper  half. 

When  the  upper  half  is  filled,  it  is  saved  in  the 
Message  Stack  File  and  the  write  index  is  reset  to  the  be- 
ginning of  the  upper  half.  When  the  read  index  reaches  the 
end  of  the  lower  half,  the  lower  half  is  filled  either  with 
a  saved  stack  in  the  file  or  with  the  upper  half.  The  read 
index  is  reset  and  in  the  latter  case  the  write  index  points 
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to  an  entry  in  the  lower  half.   Fig.  5.4  illustrates  an   ex- 
ample. 

Any  saved  warning  message  will  cause  a  blinking  of 
the  ACKNOWLEDGE  button.  Upon  selection  of  the  ACKNOWLEDGE 
button  the  operator  may  initiate  erasing  of  a  displayed 
warning  message.  The  Message  Manager  will  display  any  other 
waiting  message  from  the  message  stack  or  clear  the  message 
line  on  the  screen.  If  there  are  no  more  warning  messages 
waiting  on  the  message  stack  the  ACKNOWLEDGE  button  will 
stop  blinking. 
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Figure  5.4 
Message  Stack  Illustration 


II 


III 


W 


W 


—'file 


w— *-. 


R 


IV 


V 


VI 


file  — ) 


W 


R 


R 


R 


Phases:    I 
II 

III 
IV 

V 
VI 


Only  lower  stack  half  in  use 
Upper  half  has  been  filled  and  is  written 
on  disc;  write  will  continue 
lower  half  is  read;  read  will  continue 
stack  half  is  retrieved  from  disc- 
read will  continue 

lower  half  has  been  read; read  will  continue 
Upper  half  has  been  moved  into  lower  half 


Legend:  (x) -  Sequence  of  message  blocks 

R  -  Read  index;    W  -  Write  index 
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VI.    BACKGROUND  TASKS 

A.   INTRODUCTION 

A  BG  Task  performs  a  group  of  related  functions.  It  ex- 
ecutes as  a  BG  mainline  program.  The  BG  Tasks  are  indepen- 
dent of  each  other  and  only  one  will  be  executed  at  a  time. 
Thus  the  overlay  structure  of  RT-11  is  used.  When  linking 
the  BG  Monitor  all  BG  Tasks  will  be  assigned  to  the  same 
memory  area.  When  a  certain  BG  Task  is  called  by  the  Execu- 
tive it  will  be  loaded  if  not  already  in  memory. 

E.   BACKGROUND  TASK  STRUCTURE 

After  a  EG  Task  has  been  started  it  will  execute  in- 
dependently of  other  BG  Controller  functions.  Only  if  the 
BG  Task  needs  some  operator  input  to  proceed  it  will  call 
the  Control  I/O  Manager.  Also  it  may  schedule  the  call  of 
the  Message  Manager  to  display  or  erase  a  message. 

The  operator  has  the  option  to  start  a  new  BG  Task  while 
another  is  executing.  Thus  the  old  one  has  to  be  killed. 
The  Executive  will  set  a  common  data  unit,  the  'KILL-flag', 
which  indicates  that  the  running  BG  Task  is  to  be  killed. 

To  recognize  this  condition  the  BG  Task  has  to  check 
this  flag.  Thus  the  design  of  a  BG  Task  has  to  be  done  in 
such  a  way  that  the  control  path  always  passes  certain  check 
points  to  examine  the  KILL  flag.  When  the  KILL  condition  is 
recognized  the  BG  Task  must  not  initialize  any  new  I/O  or 
schedule  any  other  program.  It  returns  control  to  the  Exe- 
cutive after  all  initialized  I/O  has   been   completed.    A  p  - 
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propriately  the  KILL  condition  is  checked  after  a  specific 
sub-function  has  been  completed  or  while  waiting  for  I/O 
completion. 
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VII .   SUPPORT  SOFTWARE 

A.  INTRODUCTION 

Most  of  the  BG  Monitor's  actions  are  determined  by  the 
contents  of  the  menu  file.  This  file  contains  all  informa- 
tion  to  create  an  image  on  the  IIP  Terminal  and  to  process 
the  operator's  inputs  from  keyboard  or  Touch  Input  System. 
It  is  generated  and  updated  using  Support  Software  that  e  x  - 
cutes  under  the  control  of  UNIX. 

One  program  updates  the  Menu  File,  it  is  called  Menu  Ed- 
itor. Another  program,  the  Menu  Checker,  is  used  to  verify 
any  modifications  of  the  menu  file. 

B.  MENU  EDITOR 

1 .   Introduction 

The  Menu  Editor  processes  fixed  format  input  and  up- 
dates the  menu  file.  To  simplify  the  menu  generation  the 
user  does  not  have  to  specify  the  exact  locations  of  text  or 
displayed  buttons  on  the  screen;  the  Menu  Editor  will  per- 
form all  necessary  arrangements  of  the  image. 

The  Menu  Editor  needs  three  files  which  have  to  ex- 
ist in  the  UNIX  file  system: 

-  menu  file, 

-  intermediate  menu  file, 

-  input  file. 

The  input  for  the  Menu  Editor  can  not  be  taken  from 
a  standard  input  device  because  the  program  reads  over  the 
input  file  twice.   The  first  time  all  requested   information 
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will  be  extracted  to  compute  the  image  size,  to  get  the 
referenced  menu  names,  to  update  the  menu  file  directory, 
and  to  provide  the  Menu  Editor  with  sufficient  knowledge  to 
arrange  the  created  image.  During  the  second  read  over  the 
input  file  a  new  or  updated  menu  will  be  the  result. 

The  following  terminology  will  be  used  in  the  furth- 
er presentation: 

-  image:  the  complete  image  of  the  HP 

Te  rmina 1 

-  image  block:        a  subset  of  the  image;  it  is 

one  block  of  text  or  it  is  a 
question  with  its   responses 

-  response:  subset   of  a  question  block; 

it  is  a  key   or   a  displayed 
button 

-  predecessor  menu:  a  menu   which   preceeds  some 

other   menu   in  the   display 
sequence 

-  successor  menu:    a  menu   which   succeeds  some 

other   menu   in  the   display 
sequence 
The  Menu  Editor  Manual  in   the   appendix   will   give 
sufficient  information  about  how  to  use  the  program. 
2.   Files 

The  Menu  File  contains  a  Menu  File  Directory  and  the 
menus.  Its  records  have  a  fixed  length  of  544  bytes.  The 
directory  uses  20  records  with  45  entries  each.   For  a  menu, 
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6  records  are  needed  to  store  the  maximum  possible  an o  u  n  t  of 
information.  Because  UNIX  does  not  provide  direct  access 
I/O  in  FORTRAN,  the  Menu  File  has  to  be  read  sequentially. 
The  UNIX  I/O  system  does  not  write  leading  or  trailing  ASCII 
NUL  characters.  Therefore  it  is  crucial  that  the  bytes  1 
and  542  of  a  record  do  not  contain  such  a  character.  Anoth- 
er constraint  by  UNIX  prohibits  more  then  fifteen  open  re- 
quests for  files.  Thus  a  record  that  Is  located  between  the 
beginning  of  a  file  and  the  read  pointer  can  only  be  ac- 
cessed by  closing  and  reopening  the  file.  This  is  the  only 
way  to  reset  the  file's  pointers.  This  procedure  easily 
exceeds  the  maximum  number  of  file  open  requests.  Therefore 
a  Temporary  Menu  File,  'menuout',  is  used. 

There  are  two  reads  over  the  Menu  File.  The  first 
time  the  locations  of  referenced  menus  in  the  menu  file  are 
extracted.  Also  the  directory  is  updated  and  the  new  version 
is  copied  to  the  Temporary  Menu  File.  The  second  time  all 
unchanged  menu  records  are  copied  and  updated  records  are 
written  to  the  Temporary  Menu  File.  Finally  the  whole  Tem- 
porary Menu  File  is  copied  to  the  Menu  File. 

When  creating  the  menu  records  each  question  or  text 
section  is  considered  to  be  an  image  block.  Such  a  block 
will  always  have  the  same  structure  depending  on  the  input. 
Text  simply  will  be  copied  in  the  demanded  form.  The  inage 
commands  for  a  question  will  be  computed  depending  on  the 
location  of  the  buttons,  their  size,  and  their  number.  When 
the  number  of  required  lines  on  the  screen  is  determined  the 
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whole  image  will  be  rearranged  by  separating  the  blocks  with 
available  blank  lines. 
3 .   Functions 

The  Menu  Editor  will  perform  several  functions  which 
all  update  the  menu  file  directory  and  modify  menu  records. 

a.  Initial  Start  Menu 

The  first  menu  that  has  to  be  created  is  the  In- 
itial Start  Menu.  This  function  initializes  the  Menu  File 
and  creates  entries  in  the  directory  for  all  initial  menus, 
like  Initial  Status  Menu,  Initial  Select  Menu,  and  so  on. 
The  3G  Monitor  expects  these  menus  at  fixed  record  loca- 
tions . 

The  records  of  the  Initial  Start  Menu  are  creat- 
ed. The  image  records  will  contain  the  command  for  the  HP 
Terminal  to  (1)  draw  all  permanent  buttons  on  the  screen, 
and  (2)  to  clear  the  rest  of  the  screen.  Also  the  informa- 
tion about  possible  input  options  is  stored. 

b.  Create  a  Menu 

This  function  is  used  to  create  a  new  menu.  The 
first  empty  entry  in  the  menu  directory  will  be  filled  with 
the  new  menu  name  and  the  number  of  its  first  record.  If 
the  menu's  predecessor  menu  is  not  yet  existent  a  new  entry 
will  be  generated  for  it.  If  the  menu  has  any  successor 
menus  their  entries  will  be  searched  in  the  directory;  if 
they  are  not  yet  existent  new  entries  will  be  generated. 
After  the  directory  has  been  updated,  the  HP  Terminal  com- 
mands and  information  about  possible  inputs  will  be  computed 
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and  stored  in  the  menu  records, 
c.   Update  a  Menu 

This  function  is  only  allowed  if  the   referenced 
menu  is  already  in  the  Ilenu  File.   Its  location  is  retrieved 
from  the  nenu  directory  and  the  nenu  records   are   generated 
the  same  way  as  with  nenu  creation. 
d  .   Delete  a  Me  nu 

This  function  sinply  searches  the  referenced 
menu's  entry  in  the  menu  directory  and  deletes  it.  A  menu 
to  be  deleted  nay  have  successor  nenus.  The  user  has  to 
delete  any  successor  menus  if  they  are  no  longer  needed. 
The  predecessor  menu  has  to  be  updated  as  well. 


C.   MENU  CHECKER 

1 .  Introduction 

This  program  allows  verification  of  any  modifica- 
tions of  the  Menu  File.  It  extracts  the  contents  of  the 
nenu  directory  and  the  nenu  records.  The  function  requests 
are  taken  from  the  standard  input  device.  Output  is  done  at 
the  standard  output  device. 

The  Menu  Checker  Manual  in  the  appendix  will  give 
sufficient  information  about  how  to  use  the  program.  Also 
exanples  of  possible  outputs  are  shown  folio  w  in  g  the  appen- 
dices . 

2 .  Functions 

The  following  functions  nay  be  selected  by  the  user: 
-  Directory:       All  entries  of  the  Menu  File 

directory  will  be   extracted 
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Input  options:  All  information  about  possible 

input  options  of  a  specified 
menu  will  be  extracted 

Image:  The  HP  Terminal  commands  that 

create  the  image  will  be 
extracted 
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VIII.   BACKGROUND  MONITOR  FILES 

A.  INTRODUCTION 

The  EG  Monitor  uses  several  files  for  different  pur- 
poses. A  Menu  File  contains  all  information  to  control  the 
operator  interaction  and  resulting  actions.  Two  temporary 
files,  the  tlenu  Stack  File  and  the  Me  sage  Stack  File  are 
used  to  save  any  overflown  stacks.  A  Log  File  will  contain 
plain -English  input  commands  done  by  the  operator. 

B.  MENU  FILE 

This  file  is  created  using  the  Menu  Editor.  Its  mode  is 
direct  access  and  its  form  is  unformatted.  All  information 
is  represented  in  ASCII  characters.  Integers  are  converted 
into  a  2  character  ASCII  code  using  the  following  mapping: 

Upper  byte  =  integer/30  +  40 

Lower  byte  =  integer  modulo  30  +  40 
The  file  has  fixed  length  records  of  54  4  bytes  each.  A 
menu  occupies  6  records  to  store  its  information.  To  store 
the  directory  20  records  with  45  entries  each  are  used. 
Each  entry  contains  a  menu  name  and  the  location  of  its 
first  data  record.  The  menu  name  is  represented  in  10  ASCII 
characters.  The  pointer  to  a  menu's  first  data  record  is  a 
3  digit  integer.  There  exists  a  one-to-one  mapping  between 
the  location  of  a  directory  entry  and  the  location  of  the 
menu  records.   The  following  parameters  are  used: 

-  i:  location  of  the  first  menu  record  behind  the 
directory 
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-  j:  location  of  the  directory  record 

-  k:  pointer  to  entry  in  the  directory 

The  menu's  first  data  record  number  is  determined  by 
record  number  -  i  +  (45*(j-l)  +  k-l)*6. 

The  coded  record  number  is  only  used  by  the  Menu  Editor. 
The  EG  Controller  does  not  have  to  access  the  directory  at 
all.  References  to  a  menu  by  another  one  is  provided  by  its 
record  number  to  decrease  the  number  of  necessary  file 
accesses . 

The  first  4  records  of  a  menu  are  used  to  store  the  HP 
terminal  commands  which  will  create  an  image  on  the  display. 
Subsets  of  a  command  string  are  separated  by  an  ASCII  '$'• 
The  end  of  data  in  an  image  record  is  indicated  by  an  ASCII 
The  last  used  image  record  has  an  ASCII  in  byte 
540.  These  three  ASCII  characters  therefor  must  not  be  used 
in  any  image  text. 

The  last  two  records  contain  information  about  possible 
operator  inputs  as  well  as  a  parameter  block.  A  record  is 
partitioned  into  30  byte  sections,  thus  providing  entries 
for  18  input  options.  These  are  the  data  stored  for  each 
possible  input: 

-  word   1:  Legend  of  the  button  or  the  key 

(ASCII  character  in  lower  byte) 

-  word   2 

to   6:  plain-English  log  command  (10  characters) 

-  word   7:  left  boundary  of  a  button 

-  word   8:  lower  boundary  of  a  button 
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-  word   9:  right  boundary  of  a  button 

-  word  10:  upper  boundary  of  a  button 

-  word  11:  action  code;  it  determines  the 

reaction  of  the  BG  Monitor 

-  word  12 

to  15:  used  for  any  additional  information 
(e.g.  BG  Task  identifier) 
A  parameter  block  informs  the  Menu  Manager  about  some 
additional  menu  parameters.  The  predecessor's  menu-id  is 
stored.  The  number  of  possible  input  options  is  given.  Al- 
so the  type  of  the  menu  (e.g.  Status  menu)  can  be  retrieved 
from  this  parameter  block.  Word  15  of  this  block  contains 
the  ASCII  characters  '  ' .  The  parameter  block  is  located 
in  the  36th  entry  for  the  Initial  Start  Menu.  For  all  other 
menus  it  is  located  in  the  29th  entry.  Fig.  8.1  will 
display  the  file  layout. 
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Figure  8.1 
Menu  File  Layout 
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C.  MENU  STACK  FILE 

This  file  is  used  to  intermediately  save  any  menu 
stacks.  It  is  a  direct  access,  unformatted  file.  One  stack 
consists  of  40  bytes  to  store  20  menu-ids.  Stacks  are  writ- 
ten to  the  file  and  read  in  a  Last-out  First-in  scheme. 

D.  MESSAGE  STACK  FILE 

This  direct  access  file  saves  any  overflov/n  message 
stacks  in  unformatted  form.  A  message  stack  has  a  size  of 
12  0  bytes.  The  scheme  to  save  and  retrieve  these  stacks  is 
First-out  First-in. 

E.  LOG  FILE 

When  logging  of  all  operator  input  commands  is  requested 
the  Log  Manager  writes  plain-English  commands  to  this  file. 
It  is  accessed  sequentially  and  is  formatted.  Each  command 
exists  of  10  ASCII  characters  and  the  contents  of  this  file 
can  be  listed  to  trace  all  operator  actions. 
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IX.   CONCLUSIONS 


The  software  for  the  Background  (BC)  Monitor  documented 
in  this  thesis  has  been  developed  and  tested  successfully. 

The  data  in  the  Menu  File  causes  specific  actions  to  be 
taken  by  the  BG  Monitor  when  an  operator's  input  is  pro- 
cessed. Thus  the  execution  of  the  BG  Monitor  is  to  a  large 
extent  controlled  by  the  contents  of  the  Menu  File.  This 
control,  imbedded  in  the  data,  decreased  the  size  of  the  BG 
Controller  and  allowed  a  general  program  structure  which  is 
very  flexible.  Many  changes  of  a  BG  Monitor's  function  can 
be  implemented  by  just  updating  the  Menu  File.  Thus  no  pro- 
gram modifications  are  necessary. 

Extensions  of  a  certain  function  or  addition  of  new 
functions  without  changing  the  structure  of  the  3G  Monitor 
are  possible.  This  can  be  done  simply  by  adding  new  menus 
to  the  Menu  File  and  by  installing  a  new  BG  Task.  This  only 
requires  minor  changes  in  the  Executive  (to  call  the  BG 
Task)  and  creation  of  new  menus  in  the  Menu  File.  A  BG  Task 
can  be  developed  and  tested  separately  fron  the  existent  BG 
Moni  to  r . 

Further  software  modifications  are  possible.  The  menu 
record  size  (now  5  4  4  bytes)  could  be  reduced  to  512  bytes 
(standard  physical  record  size  on  a  disc).  This  would  in- 
crease the  speed  of  data  transfer  by  approximately  100  mil- 
liseconds. The  new  size  would  be  sufficient  to  store  all 
information  about  a  specific  menu. 


Certain  I/O  problems  with  the  operating  systems  caused  a 
considerable  delay  in  the  software  development.  UNIX  only 
allows  fifteen  requests  to  open  files  from  FORTRAN  programs. 
This  restriction  is  not  documented  in  the  UNIX  manuals.  To 
cope  with  this  problem,  the  form  of  some  file  operations  had 
to  be  changed . 

A  software  error  related  to  I/O  within  completion 
routines  was  detected  in  RT-11.  A  patch  received  from  the 
Digital  Equipment  Corporation  was  implemented  in  RT-11  and 
resolved  this  problem.  Source  code  for  this  patch  is  in- 
cluded with  the  program  listing  section  of  this  thesis. 
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APPENDIX  A 
SUMMARY  OF  SOFTWARE  AND  DOCUMENTATION 

This  summary  lists  the   existing   programs   and   nanuals 
which  have  been  written  during  the  software  development. 

-  EG  Monitor,  consisting  of  the  B  0  Controller 
and  DG  Tasks 

-  Menu  Editor 

-  Menu  Checker 

-  Manual  for  the  Menu  Editor 

-  Manual  for  the  Menu  Checker. 
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APPENDIX  B 
MENU  EDITOR  MANUAL 

A.  INTRODUCTION 

The  Menu  Editor  is  a  program   that   executes   under   the 

operating   system   UNIX.  It   is  used  to  create,  update,  or 

delete  menus  in  the  Menu  File  used  by  the  BG  Monitor  of   the 

SATCOM  Signal  Analyzer.  The  RATFOR  source  program  is  stored 

in  the  file  'cenued.r'.  The  executable  program  is  saved  in 
the  file  'menued'.  The  Menu  Editor  will  execute  using  the 
command  : 

menued 

B.  FILES 

The  Menu  Editor  requires  three  different  files  that  have 
to  exist  in  the  UNIX  file  system.  These  are  their 
filenames  : 

-  'nenuf ile'  :  This  is  the  Menu  File  that  will  be  used 

by  the  BG  Monitor. 

-  'menuout'   :  This  is  a   temporary  menu  file   used  to 

store  intermediate  data. 

-  'infile'     :  This  file   contains  all  user   specified 

input  to  modify  the  Menu  File. 
All  files  will  be  accesses   sequentially,   the   contents   is 
coded  in  ASCII  . 

1.   File  'nenuf ile' 

If  the  file  initially  is  not  yet  existent,  it  has  to 
be  created  using  the  UNIX  Editor  'ned'  .   Any  dummy  input  may 
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be  stored  in  the  file.  The  structure  of  'menufile'  will  be 
determined  by  the  .'ienu  F.ditor  when  it  is  accessed  the  first 
tine. 

The  file  consists  of  5  44  bytes  records.  Each  record 
stores  valid  information  within  the  first  540  bytes.  The 
last  four  bytes  will  contain  the  ASCII  characters  0,  0,  CR, 
LF.  The  Menu  Editor  will  write  records  with  a  length  of  542 
bytes.  UNIX  will  add  CR/LF,  thus  creating  a  record  of  544 
bytes  . 

The  first  20  records  will  contain  the  Ilenu  File 
directory.  Each  directory  record  allows  45  entries.  An  en- 
try contains  a  menu  name  (10  ASCII  characters)  and  a  pointer 
to  the  first  data  record  of  that  menu.  The  initial  directo- 
ry will  be  set  up  when  executing  the  function  'Create  Ini- 
tial Start  Menu' . 

For  3  a  c  h  menu  6  records  will  be  used.  The  first 
four  records  contain  the  commands  to  create  an  image  on  the 
HP  Terminal  display.  Subsets  of  command  strings  are 
separated  by  ASCII  '$'.  The  end  of  usable  image  commands  on 
a  record  is  indicated  by  an  ASCII  '.  The  last  used  image 
record  will  contain  an  ASCII  in  byte  5  4  0.  These  three 
ASCII  characters  must  not  be  used  in  any  menu's  image  text. 

Two  additional  records  provide  information  about 
possible  operator  inputs  in  reaction  to  the  display  of  this 
menu.  These  records  are  partitioned  into  30  bytes  sections, 
thus  providing  entries  for  18  input  options  each.  The  in- 
formation stored  for  each  input  option  will  be 


62 


-  Label  of  a  button  or  key 

-  plain-English  log  conn and 

-  boundaries  of  a  displayed  button 

(lines  and  colunns) 

-  an  action  code  to  determine  the 

BG  Monitor's  action 

-  additional  information  that  may  be  requested 

A  parameter  block  within  these  records  will  contain  addi- 
tional information  about  some  menu  parameters.  It  stores 
(1)  the  predecessor's  menu-id,  (2)  the  menu's  type  (e.g. 
Status  Menu),  and  (3)  the  number  of  possible  input  options. 
Word  15  of  this  entry  will  contain  the  ASCII  characters 
".  The  parameter  block  is  located  in  the  36th  entry  for 
the  Initial  Start  Menu.  For  all  other  menus  it  is  located 
in  the  29th  entry. 

2.  File  'menuout' 

If  this  file  does  not  yet  exist  in  the  UNIX  file 
system,  it  has  to  be  created  using  the  UN' IX  Editor  'ned'. 
It  may  contain  any  data.  This  file  will  have  exactly  the 
same  structure  as  the  Menu  File.  It  is  used  to  copy  un- 
changed records  from  'menufile'  and  to  add  updated  records. 
When  the  Menu  Editor  has  completed  its  requested  function, 
it  copies  the  contents  of  'menuout'  to  the  Menu  File 

3.  File  'infile' 

This  file  will  provide  all  information  necessary  to 
run  the  Menu  Editor.  The  file  is  to  be  created  using  the 
UNIX  Editor  'ned'.   The  following  terminology  will   be   used 
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in  this  manual: 

-  predecessor  menu:  a  cenu   which   preceeds  send 

other   menu   in  the   display 
sequence  ; 

-  successor  menu:     a  menu   which   succeeds  some 

other   menu   in  the   display 
sequence  ; 

-  image:  the  image  on  the  HP  Terminal 

display  created  by  the   menu 

-  image  block:        a  subset  of  the  image;  it  is 

one  block,  of  text  or  it  is  a 
question  with  its  responses; 

-  response:  subset   of  a  question  block; 

it  is  a  key   or   a  displayed 

button; 
All  integer  inputs  have  to  be  ended  with  '  ,  '  .  Character  in- 
puts have  to  be  ended  with  ' @ ' .  A  line  of  text  is  to  be 
ended  either  by  '  I  '  (if  it  is  not  the  last  text  line)  or  by 
"  G ' .  Comments  are  allowed  on  each  line  following  these  end- 
ing symbols. 

a.   Format  of  'infile' 

The  input  format  is  given  below.    A   number   in 
parentheses  indicates  the  line  number  in  'infile'. 
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for  all  functions... 

(1)  :  function  code 

for  delete,  create,  update... 

( 2  )  :  menu  name 

for  create,  update... 

(3)  :  predecessor  menu  name 

( A  )  :  in enu  type 

(5)  :  menu  title 

(6)  :  number  of  image  blocks 
for  each  image  block... 

start-block  code  (126) 
number  of  responses 
location  of  buttons 
size  of  buttons 
text  lines 

for  each  response... 

start  response  code  (127) 
label  of  button 
log  command 
action  code 
annex 
b.   Contents  of  'infile' 

This  section  will  specify  which  values  are  valid 
for  all  possible  inputs, 
f unc  tion  code: 

1  -  DELETE  an  existing  menu 

2  -  CREATE  a  new  menu 
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3  -  UPDATE  an  existing  menu 

8  -  CREATE  INITIAL  START  menu 
menu  nanes ,  log  command: 

10  characters 
menu  type: 

1  -  INITIAL  START  menu 

2  -  STATUS  menus 

3  -  SELECT  menus 
A  -  HELP  menus 

5  -  CONTROL  menus 

6  -  BG  TASK  menus 
menu  title: 

text  for  first  line  on  top  of  menu  image 
location  of  buttons: 

1  -  button  row  below  the  text 

2  -  button  row  beside  the  text 

3  -  button  column  beside  the  text 
size  of  buttons: 

number  of  lines  the  button  will  cover 
text: 

one  or  more  lines  of  text 
label: 

1  character 
action  code: 

1  -  display  a  new  menu 

3  -  return  an  integer 

4  -  return  a  character 
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5  -  display  the  previous  menu 

7  -  IIARDCOPY  CRT1 

8  -  IIARDCOPY  CRT2 

9  -  ACKNOWLEDGE 

10-  STATUS 

11-  SELECT 

12-  HELP 

13-  CONTROL 

14-  New  BG  Task 

15-  Change  Parameter  Elock 
annex : 

action  code  1 
action  code  3 
action  code  4 
action  code  14 
c  .   Exacip le 

This  section  will  give  an  example  of  how  the 
'infile'  might  look  like.  This  input  causes  the  I'enu  Editor 
to  create  a  new  menu  which  has  one  question  block  with  two 
responses  and  a  pure  text  block. 


menu  name 

integer 

character 

3G  Task  identifier 


2, 

tes  tcienu       Q 

start  menu    Q 

6, 

first  Task  menuO 

2, 

126, 


create  a  new  menu 

name  of  the  new  menu 

predecessor  menu 

menu  type:  Task  menu 

text  of  title  on  top  line 

2  image  blocks 

start-code  for  first  block 
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2, 
3, 
3, 


2  responses 

button  column  beside  text 

button  size  3  lines 


This  is  the  text  of  the  question]  1st  line 
If  you  want  to  continue  touch  " Y " |  2nd  line 
else  touch  button  " N " @  3rd  line 


127, 

no  e 

3, 

20, 

127, 

Yes         @ 

1, 

nextmenu  Q 

126, 

0, 

0, 
0, 


start-code  1st  response 

label  of  button 

log  command 

action:  return  integer 

integer  to  return 

start-code  2nd  response 

Label  of  button 

Log  command 

action:  display  new  menu 

menu  name 

start-code  2nd  block 

no  responses 

no  buttons 

no  button  size 


This  is  a  pure  text  blockl 

It  just  gives  some  information  and  h a s  | 

no  input  options^5 
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C.  SEQUENCE  OF  MENU  GENERATION 

The  initial  3  0  Controller  menus  have  to  be  located  in 
fixed  Menu  File  records.  This  is  requested  because  the  BG 
Controller  of  the  S  5  A  has  to  find  these  nenus.  These  are 
the  associated  menu  records: 

1)  INITIAL  START  menu    —  21 

2)  initial  STATUS  menu   --  27 

3)  initial  SELECT  menu   —  33 

4)  initial  HELP  menu     --  3? 

5)  initial  CONTROL  menu  --  45 

To  guarantee  this  sequence  the  INITIAL  START  menu  has  to  be 
generated  first.  The  Menu  Editor  then  will  set  up  the  Menu 
File  directory,  create  the  initial  start  menu,  and  place  the 
other  initial  3  G  Controller  menus  into  the  directory.  The 
implementation  of  these  menus  then  has  to  be  done  using  the 
UPDATE  function. 

D.  FUNCTIONS 

1.  CREATE  INITIAL  START  menu 

This  is  the  very  first  function  the  Menu  Editor  has 
to  process.  It  will  build  the  Menu  File  directory  and  place 
the  entries  of  all  initial  menus  into  the  directory.  The 
menu  records  for  the  INITIAL  START  menu  will  be  created  and 
stored  following  the  directory. 

2.  CREATE  a  menu 

The  Menu  Editor  searches  the  menu  direcory  and  uses 
the  first  empty  entry  to  store  the  menu's  name  and  pointer 
to  its  records.   If  the  menu's  predecessor  menu  is   not   yet 
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existent  its  name  and  computed  pointer  will  be  placed  into 
the  directory.  If  the  nenu  has  any  successor  menus,  they 
will  be  searched  in  the  directory,  if  they  are  not  yet 
created,  new  entries  for  them  will  be  generated. 

After  updating  the  directory  and  extracting  needed 
data  from  it  the  image  commands  and  information  about  possi- 
ble input  options  will  be  generated  and  stored  in  the  menu's 
records . 

3.   UPDATE  a  nenu 

To  process  this  function,  the  referenced  menu  has  to 
be  in  the  'menufile'.   Essentially  the  further  processing  is 
the  same  as  with  the  CREATE  function. 
A.   DELETE  a  menu 

The  menu's  entry  is  searched  in  the  menu  directory. 
Then  the  menu's  name  will  be  deleted.  A  deleted  menu  may  be 
a  predecessor  or  successor  of  other  menus.  The  user  has  to 
update  any  other  menus  that  are  affected  by  the  deletion. 

E.   MENU  CHECKER 

There  exists  a  program  'MENU  CHECKER'  that  allows  to 
verify  any  modification  of  the  'menufile'.  It  has  the  fol- 
lowing functions: 

-  DIRECTORY:       Extract   all  entries  from  the 

Menu  File  directory 

-  INPUT  OPTIONS:  Extract  all  information  about 

possible   input  options  for  a 
specific  menu 

-  IMAGE:  Extract   the  image  generating 
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conniands   for  a  specific  menu 
For  further  information  refer  to  the  MENU  CHECKER  MANUAL 
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APPENDIX  C 
MENU  CHECKER  MANUAL 

A.   INTRODUCTION 

The  Menu  Checker  allows  to  verify  the  contents  of  the 
Menu  File.  This  program  executes  under  the  operating  system 
UNIX  and  exists  as  an  executable  file.  The  file  'ncheck.r' 
stores  its  source  code.  The  Menu  Checker  will  execute  using 
the  command: 

rache  ck 

It  offers  the   following   functions   to   extract   data   from 
'menuf  i le  '  : 

-  DIRECTORY:       Extract   all  entries  from  the 

Menu  File  directory 

-  INPUT  OPTIONS:  Extract  all  information  about 

possible   input  options  for  a 
specific  menu 

-  IMAGE:  Extract   the  image  generating 

commands  for  a  specific  menu 
The  Menu  Checker  needs  to  have  access  to  the  'menuf ile'. 
Input  is  taken  from  the  standard  input  device,  output  is 
directed  to  the  standard  output  device.  Non-printing  ASCII 
characters  of  the  image  commands  (e.g.  Escape)  will  not  ap- 
pear in  the  output. 

E.   INPUT  FORMAT 

The  input  to  control  the  Menu  Checker  consists  of  one  or 
two   parameters.   An  integer  has  to  be  ended  with  an  ','  and 
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a  10-character  menu  name  has  to  be  ended  with  ' @ ' .  The  fol- 
lowing example  shows  the  input  format  and  valid  parameters. 
The  input  sequence  is  indicated  by  the  numbers  in 
parentheses : 

(  1  )  :  f unc  tion  code 

5  -  directory 

6  -  image 

7  -  input  options 
(2)  :  menu  name  for  functions  6,7 

exarap le : 

6,  extract  image  commands 

startmenu  @    from  start menu 
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SAMPLE  OUTPUTS  OF  THE  MENU  CHECKER 


These  are  the  directory  records 


record  nunl 

>er  : 

1 

s tar tmenu 

21 

s tatusO 

27 

se lee  t  0 

33 

helpO 

39 

controlO 

45 

s  ta  tus  1 

51 

taskl 

57 

OOOOOOOOOO 

0 

oooooooooo 

0 

0000000000 

0 

OOOOOOOOOO 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

0000000000 

0 

oooooooooo 

o 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

o 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

oooooooooo 

0 

record  number  :   2 
There  are  no  entries 

record  number  :   3 
There  are  no  entries 

record  number:   A 
There  are  no  entries 

record  number:   5 
There  are  no  entries 

record  number:   6 
There  are  no  entries 

record  number:   7 
There  are  no  entries 

record  number :   3 
There  are  no  entries 

record  number:   9 
There  are  no  entries 

record  number:  10 
There  are  no  entries 

record  number:  11 
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There  are  no  entries 

record  number:  12 
There  are  no  entries 

record  number:  13 
There  are  no  entries 

record  number:  14 
There  are  no  entries 

record  number:  15 
There  are  no  entries 

record  number:  16 
There  are  no  entries 

record  number:  17 
There  are  no  entries 

record  number:  18 
There  are  no  entries 

record  number:  19 
There  are  no  entries 

record  number:  20 
There  are  no  entries 
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Image  conmands 


a07C6 
a02r0 
aC3rO 
a02r0 
a07C& 
a06r0 
a07r0 
a06r0 
a07C& 
alOrO 
allrO 
alOrO 
a07C& 
al4rO 
al5r0 
al4rO 
a07C& 
al8rO 
al9r0 
alSrO 
a07C& 
a22rO 
a23r0 
al6C& 
a22rl 
a23rl 
aOlrl 


aOICa 

lCdJd 

lCdJd 

2CPR 

aOICa 

lCdJd 

lCdJd 

2CPR 

aOICa 

lCdJd 

lCdJd 

2CSTA 

aOICa 

lCdJd 

lCdJd 

2CCTR 

aOICa 

lCdJd 

lCdJd 

2CSEL 

aOICa 

lCdJd 

lCdJd 

alOCa 

OCdJd 

OCdJd 

2C 


OlrOlCdJd? 

@ 

Q 

1 

05r01CdJd@ 

@ 

@ 

2 

09r01CdJd@ 

@ 

Q 

T 

13r01CdJd@ 

@ 

Q 

L 

17r01CdJd^ 

@ 

@ 

21r01CdJdG 

0 

Ga22r02CHELP 

21rlOCdJd@ 

@ 

Pa22rllCACK 
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Input    options    for    menu: 
first    record:     21 


start  menu 


number    of    input    options:        7 

menu    type:        I 

predecessor  menu:  0C000C0C00 


input  option   1 
label:  P 

log  command:  PRINT  CRT1 
button  left  collumn:   1 

button  right  collumn: 

button  upper  row:   1 

button  lower  row:   3 
action  code:   7 


input  option   2 
label:  D 

log  conmand:  PRINT  CRT2 
button  left  collumn:   1 
button  right  collumn: 
button  upper  row:   5 
button  lower  row:   7 
action  code : 


input  option   3 

label :  A 

log  command:  ACKNOWLEDG 


button  left  collumn: 

button  right  collumn 

button  upper  row:  21 

button  lower  row:  23 

action  code:   ? 


10 
15 


input  option   4 
label:  S 

log  command:  STATUS 
button  left  collumn: 
button  right  collumn: 
button  upper  row:   9 
button  lower  row:  11 
action  code :  10 


input  option   5 
label:  E 

log  command:  SELECT 
button  left  collumn: 
button  right  collumn 
button  upper  row:  17 
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button  lowe  r  row : 
action  code:  11 


19 


input  option  6 
label:  II 

log  command:  HELP 
button  left  collunn: 

button  right  collunn 

button  upper  row:  21 

button  lower  row:  23 

action  code:  12 


input  option  7 
label:  C 

log  command:  CONTROL 
button  left  collunn: 

button  right  collunn 

button  upper  row:  13 

button  lower  row:  15 

action  code:  13 
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BACKGROUND  CONTROLLER  PROGRAM 


,y*************  ********  A********  ************************  *  ************** 

i  * 

II  BACKGROUND    CONTROLLER 

It  * 

//********************************************************************* 
j/************  *************************  ******************************** 

# 

This  program  is  the  resident  part  of  the  Background  Monitor 

running  under  RT-11. 
Additional  Background  Tasks  are  stored  on  a  memory  image  file. 

When  a  call  is  made  to  such  a  Task,  the  RT-11  overlay  handler 

reads  it  from  the  memory  image  file  into  the  specified  overlay 

region. 

The  Background  (BG)  Controller  has  the  following  components: 

-  EXECUTIVE 
This  is  the  Main  Program  of  the  BG  Controller.  It  is  called  by 
RT-11  to  start  the  execution  of  the  BC  Monitor. 

-  CONTROL  I/O  MANAGER 
This  program  is  called  by  either  the  EXECUTIVE  or  any  Task 
to  process  an  operator  input  request  from  the  operator 
keyboard  or  the  touch  panel. 

Control  is  returned  after  a  requested  input  has  been  received 
from  the  operator. 

-  INPUT  MANACER 
This  program  is  called  initially  from  the  Executive  and  then 
re-schedules  itself  periodically. 
It  processes  all  operator  inputs  from  either  the  keyboard 

-  CONTROL  COMMAND  MANAGER 
This  program  processes  all  operator  inputs  not  requested  by 
a  BG  Task. 
or  the  touch  panel. 

-  MENU  MANAGER 
This  program  is  responsible  for  updating  the  display  on  the 
operator's  console  and  for  providing  the  other  parts  of  the 
BG  Controller  with  sufficient  information  of  any  possible 
inputs . 

The  required  information  will  be  stored  on  a  separate 
menu-file. 

-  LOG  MANAGER 
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This  program  logs  plain-English  commands,  numbers,  and  text 
on  a  requested  output  device. 

-  PARAMETER  BLOCK  MANAGER 

This  program  updates  the  current  Parameter  31ock,  saves  it 
on  disc,  and  transfers  it  to  the  Foreground  honitor. 

-  MESSAGE  MANAGER 

This  program  manages  the  displaying  and  erasing  of  any 
operator  input  related  messages  or  h/w  warning  messages. 

******************************************************************* 


********************************************************************* 

* 

0.   EXECUTIVE 

* 
********************************************************************* 

Initial  Release  —  hn/23  Aug  79 
NAME: 

bgexec 
FUNCTION : 

Main  program  of  the  BG  Controller 
The  EXECUTIVE  provides  common  routines  for 
the  BG  Controller 
CALLING  PROGRAM: 

Operating  System  RT-11 
NOTES : 

This  program  does  not  return  control  to  the  calling  progran. 
ALGORITHM: 

bgexec: 

open  all  files  used  by  the  Controller 
call  all  completion  routines 
initialize  KP  Terminal  Display 
initialize  Carroll  Touch  Input  System 

and  save  them  for  future  use 
do  forever 

{  get  next  task  to  call  from  CONTROL  I/O  MCR; 

call  next  task; 
> 


//  parameter  for  menu  table  declarations 
efine   INMAX   36      #  max  input  options  per  menu 

v    (including  control  inputs) 
efine  OPTL     15      #  storage  length  per  input  option 
//  **  TBLMAX  =  INMAX  *  OPTL 
//  **  TBLMAX  >-  2*MRL 
efine  CON  MAX   7       //  max  number  of  permanent 
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.ef  ine 

TBLMAX 

540 

ief  ine 

IMAGEX 

270 

ef  ine 

TEXTL 

40 

!ef  ine 

TNL 

10 

ief  ine 

MSGL 

56 

//  control  input 
if   max  length  of  menu  table 

it   index  in  nentbl  where  the 

it   temporary  image  storage  starts 

//  **  IMAGEX  =  TBLMAX  /  2 

it   max  word  length  of  text  input 

it   max  word  length  of  task  name 

//  max  word  length  of  displayed  message 


lefine  MSGWL  140 

ief  ine  ENDOFM  126 

define  ENDOFI  124 

define  ELDOFR  126 


it   word  length  of  array  r.sgw 

it   code  for  end-of-message  used  in 

it   array  msgw  and  msgstk 

it   end-of-input  code 

it   used  in  menu  records 

//  end-of-record  code  to  indicate 

//  that  a  physical  record  is  the  last 

it   one  of  a  lopical  menu  record. 


LUMSG 

10 

LUMSTK 

11 

LUMENU 

12 

LUTTD 

13 

LUTSYS 

14 

LULOC 

15 

OUT 

6 

if   word  length  of  TT  display  buffer 

TTBUFL   80      if   80  characters 

INTTL    20      if   input  buffer  length  from  TT 

if   Input  parameter  for  subroutine  errinsg 
define   INM     1       //  store  input  related  message 
define  WM      2       if   store  warning  message 

if   Logical  unit  number  definitions 

if   Message-stack  file 

if   lienu-stack  file 

if   Menu  file 

it   Touch  Terminal  Display 

it   Touch  System 

it   Command  Log  File 

it   test  output 

it   length  of  physical  menu  records 

MEL     2/0     if   word  length  of  physical  record 

MRBL    540     it   byte  length  of  physical  record 

//  Max  number  of  records  used  by  one  menu 
define   IMGREC   4       it   Max  number  for  image 
define  OPTREC   2       //  Max  number  for  input  options 

it   Stack  size  parameter 

MENSTX   20       //  Max  menu  stack  size 

MGSTL1   120     //  Max  warning  message 

it   stack  size 
MGSTL2   60      //  half  message  stack  size 

it   MGSTL2  =  MGSTL1  /  2 

if   Input  parameter  definitions  for  MENU  MGR 
DIMEN    1       it   display  initial  start  menu 
DSMEN    2       //  display  status  menu 
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DSEMN 

3 

DHMEN 

4 

DCMEK 

5 

DTMEN 

6 

ECMEN 

7 

ETMEM 

8 

it   display  select  renu 
//  display  help  r.enu 
if   display  control  menu 
it   display  task  menu 
it   erase  controller  menu 
it   erase  task  nenu 


//  Input  parameter  definitions  for  MESSAGE  MGR 
EINPUT   9       it   Erase  input  related  msg 
//  Erase  warning  msg 
it   Display  input  rel.  msg 
it   Display  warning  msg  from  controller 
it   Display  warning  msg  from  task 

s  from  nenu  file 
not  be  changed 

//  display  new  renu 

//  return  text  buffer 

it   return  integer 

it   return  character 

//  display  previous  menu 

it   PRINT  CRT1 

it   PRINT  CRT 2 

//  ACKNOl/LEDCE 

//  STATUS 

it   SELECT 

it   HELP 

it   CONTROL 

it   New  EG  Task 

it   change  PB 


EWARN 

10 

DINPUT 

11 

DUARN 

12 

DWARNT 

13 

it   Action  code 

it   These 

must 

ACODEM 

1 

ACODET 

2 

ACODEN 

3 

ACODEC 

4 

ACODEP 

5 

AC0DP1 

7 

AC0DP2 

8 

ACODAC 

9 

ACODST 

10 

ACODSE 

11 

ACODHP 

12 

ACODCN 

13 

ACODTK 

14 

ACODPB 

15 

it   Input  parameter  definitions  for  common 
it   subroutine  enhanc 
REV     1       it   Reverse  button 
BLKBEG   2       it   Start  blinking 
BLKEND   3       it   Stop  blinking 
REVEND   4       it   stop  reverse  button 

it   Symbolic  menu  type  definitions 
it   These  must  not  be  changed 

//  Start  menu  being  displayed 

it   Status  menu  being  displayed 

it   Select  menu 

if   Help  menu 

it   Control  menu 

it   BG  Task  menu 


START 

1 

STATUS 

2 

SELECT 

3 

HELP 

4 

CONTROL 

5 

TASK 

6 

it   Symbo 

lie 

KEY 

1 

PLAIN 

2 

LX 

7 

LY 

8 

RX 

9 

UY 

10 

it   Symbolic  indices  for  inopt  word  locations 
it   keyboard  entry  code 
it   Plain-English  command 
it   Lower  left  x-coordinate 
it   Lower  left  y-coordinate 
it   Upper  right  x-coordinate 
it   Upper  right  y-coordinate 


82 


efine     CODE  11  it  Action    code 

efine     ANNEX        12  it  Additional   info 


efine 
efine 
efine 
efine 


efine 
efine 
efine 
efine 
ief  ine 
lef  ine 
lef  ine 
lef  ine 


it   Symbolic  parameter  values 
OK      1 
NOTOK    0 
DONE     1 
NODONE   0 

it   Symbolic  names  for  flags  and  parameters 


KILL 

NOKILL 

MENU 

NOMENU 

NOACTN 

ACTION 

ACCEPT 

NOACPT 


//  killfl 
it   killfl 

#  input  control  i/o  rcgr 

#  input  control  i/o  mgr 

//  input  completion  routines 
it   input  input  mgr 
//  inflag 
if   inflag 


if   Symbolic  cursor  coordinates 

iefine  MIX     21  it  start  x  of  first  message 

iefine  M1Y     21  it  start  y  of  first  message 

iefine  M2X     21  it  start  x  of  second  message 

Iefine  M2Y     22  it  start  y  of  second  message 


it   ASCCI  constant  for  initializing  HP  Touch  System 

iefine  UNC     94      //  Uncover  code  '*' 

iefine  STP     92      it   Stop  code 

iefine  CON      128     if   Control  code 

it   Mote:  This  must  not  be  0,  an  unused  bit  is  used  (=1) 
It   If  it  were  0,  it  would  be  truncated  as  trailing  NUL 


it   The  menu  table  is  used  in  the  following  way: 

//  -  temporary  storage  for  the  image  records 

it        using  the  upper  half  of  r.entbl 

it  (start  at  mentbl(IllAGEX)  ) 

//  -  input  options  for  permanent  displayed  'buttons' 

it        at  the  top,  and  input  options  for  non-permanent 

it        'buttons' 

//  A  program  that  accesses  the  input  options,  declares 

//  an  array   inopt  (OPTL,INMAX)  and  equivalences  it  with 

it      the  common  array  mentbl. 

it  integer*2  inopt  (OPTL,INNAX) ; 

//       equivalence  (mentbl(l),  inopt(l,l)); 

it   Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  numopt; 

it   Operator  input  storage  declarations 

it   text , number, character, pointer  for  text  buffer 
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onmon  /blk2/intext  (TEXTL )  ,  innunb,  inchar ,  intxtp  ; 

it   Storage  for  menu-id's  to  be  erased  or 
//  to  be  displayed,  initiated  by  the  controller 
onmon  /blk3/iecmen, icmenu ; 

it   Storage  for  menu-id's  to  be  erased  or 
it   to  be  displayed,  initiated  by  a  task 
:onmon  /blk4/ietmen,itrcenu; 

it   Storage  for  operator  input  related  messages 

it   and  warning  messages  from  tasks 
.ogical*l  inpmsg(MSGL),  iwmsg(MSCL); 
:omnon  /blk5/inpmsg,  iwr.sg; 

it   Storage  for 

//  warning  messages  fron  BG  Controller, 

it   read  and  write  pointer  for  msgw 
Logical*  1  msgw(MSGWL) ; 
:onnon  /b 1 k  6 /ms  gw , ms  gwp  r , ms gwpw ; 

#  Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
:ommon  /blk7/menstk(MEN'STX)  ,  menstp,  menstn; 

//  Message  stack,  stack  read  and  write  pointer 
Logical*l  nsgstk(MCSTLl)  ; 
:onmon  /blk8/msgstk,  msgstr,  msgstw; 

//  Menu  record  nunber  of  current  menu's  predecessor, 
//  menu  record  number  of  current  or  saved  task  menu  , 
it   name  of  active  BC  Task  (if  any), 
//  and  current  menu's  type 
:ommon  /blk9/ipredm, icurtm, iactsk(TNL) ,  mentyp; 


it   KILL  flag  (1:  Kill  current  BG  Task) 
//  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
ommon  /blklO/killf 1,  inflag; 

it   record  numbers  of  initial  menus  known 
it   to  the  EG  Controller 

it    DStatus,  2)Select,  3)llelp,  4)Control  5)Start 
:onmon  /blkl 1 /instat ,  insel,  inhelp,  incont,  instrt; 

it   number  of  warning  messages  to  be  displayed 
it   index  to  warning  message  stack  half  to  write  into 
it   first  message  stack  record  number  on  disc  file 
it   last  message  stack  record  number  on  disc  file 
:ommon  /blkl2/msgcnt ,  mgstsw,  mfrec,  mlrec; 

//  Input  buffer  from  TT  with  pointer 
//  flag  for  having  done  the  input  from  operator 
:ommon  /blkl3/intt  (INTTL)  ,  inttp,  indone; 
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#    Index   of    permanent    button    (in    inopt) 
it    that    is    displayed    in    reverse    node 
common   /blkl4/ipenh; 

it  Saved   cursor   i  osition 
common   /blkl5/icursx,    icursy; 


it   logical   units 
common    /blkl  7/lumsg,  lumstk,  lumenu,luttd,  lutsys  ,  lulog; 

it   data    to   communicate  with    the  HP   driver 
logical*l    char(80); 

integer*2   endchl ,endch2,f lag, count ; 
common   /tt in bf /endchl, ennch2, flag, count, char; 

if   queue    length    for   SYSF4   calls 
integer*2   qlen; 

integer*2   hpname(4);  it  RAD50  name    of    device   HP 

data  hpnair.e/3RHP    ,  3R        ,3R        ,3R        /; 

integer*2   area(4);  it  area    for    itiner    call 

integer*2   areal(4);  //  area    for    itimer    call 

//  storage    for    initializing    commands    to  TT   Display 
logical*l    ttinit(8); 

//   ESC    E   ESC   J    ESC    )    3 
data   ttinit/0/,2  7,69,2  7,74,2  7,41,66/; 

if  storage   for   initializing   commands    to  Touch   System 

if  A  A  ESC   ESC   Uncover-code   Stop-code   Control-code 

//  Note  —   the   Control    code   has    to   be    non-zero    to 

if  prevent    it    to   be    regarded   as    trailing  NUL 

//  The   parity   bit  (odd)    is    set    to    1 

if  The    sequence    is    preceeded   by    two    dummy    characters 

logical*l   hpinit(S); 

//  A   A   ESC    ESC    ~      123 

data  hpinit/0/,65,65,27,27,UhC,STP,CON/; 

data  luttd,lumsg/LUTTD,LuliSG/; 

data  lumstk,lunenu/LUMSTK,LUHENU/; 

data  lulog/LULOC/; 

data  lutsys/LUTSYS/; 

external  bgmsgm; 
external  bgmenm; 
external  bginpm; 
external   endfbk; 


it   Call    all    completion    routines   with    null    input, 
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it   requested  by  UT-11,  r.o  action  will  be  taken, 
call  bgmenn(NOACTN) 
call  bgmsgm(NOACTN) 
call  bginpm(KOACTN) 
call  endfbk(KOACTN) 


it   provide  sufficient  queue  length  for 

#  SYSF4  calls 
qlen=32 ; 
i=iqset (qlen) ; 


it   Initialize  common  data,  open  files 
intxtp  =  l ;       it    text  pointer 
insgwpr=l;       it   read  pointer  warning  msg 
csgwpw=l;       ;,-  write  ptr  warning  msg 
rr.enstp=0;       it   menu  stack  pointer 
i:enstn=0;        //  number  of  renu  stacks  on  disc 
rsgstr=l;       if   read  ptr  ressape  stack 
rasgstw=l;       it   write  ptr  ressape  stack. 
rcsgcnt=0;       it   number  of  displayed  warning  messages 
r,;sgtsw=l;       it   message  stack  half  to  write  into 
rr.lrec=G;        Of   no  message  stack  on  disc 
tr,frec=0;        it   no  message  stack  on  disc 
inttp  =  l;        it   pointer  for  input  buffer  fror,  TT 
ipredm=G;       if   no  predecessor  renu 
icurtr.=  0;        it   no  task  menu 
instrt=21;       it   record  number  of  initial  start  renu 

MM  fill  in  record  numbers  when  menufile  is  done 
;      //  initial  status  nenu 

it   initial  select  menu 

it   initial  help  menu 

it    initial  control  nenu 


++■ 


?++ 

instat=27; 

insel=33; 

inhelp=39; 

incont=45 ; 

it  I  I  I  I  I  I  I  I  I  I  I  I  1 

ipenh=0; 

endchl=STP; 

endch2=13; 

count=0; 

it   open 

%  open (UN 

I  1ACCESS- 

l  2UAXREO 

%  open (UN 

%  1ACCESS= 

I  2I1AXREC= 

%  open (UN 

X  1ACCESS= 

I  2MAXREO 

%  open (UN 

I  1ACCESS= 


it   no  permanent  button  enhanced 
it   stop  code  for  input  from  Touch  Panel 
it   stop  code  for  input  from  keyboard  (CR) 
//  pointer  for  operator  input  buffer 

all  files 
IT=lumsg, NAME='SS:i:SGSTK. DAT ',TYPE=' UNKNOWN', 
'DIRECT', F0RH='UNF0RMATTED',REC0RDSIZ£=15, 
10) 

IT=lumstk,NANE='SS:riENSTK.DAT',TYPE='UNKNCWN', 
'DIRECT',  FORIi='UNFORMATT  ED',  RECORDSIZE=10  , 
10) 

IT=lunenu,NAilE='SS:.MENUFL.DAT',TYPE='OLD', 
'DIRECT',  FORh  =  'UNFOFd-iATT  ED  '  ,REC0RDSIZE  =  136  , 
500, READONLY) 

IT=lulog ,NAME= '  SS  : LOCChD .DAT ' , TYPE-'UNKKOWN ' , 
' SEQUENTIAL ' , FORM*' FORMATTED ' ) 


it   lookup    device   IIP   on    logical   unit    luttd 
i=lookup(luttd,hpname) ; 


it   open  input  from  touch  system 
10        read(luttd,77,END«10)  endchl; 
It   format (a  1) ; 

it    initialize  TT  Display 
ihp=iwritw(4, t tin it ,0,luttd) ; 

//  schedule  menu  ngr  to  display  initial  start  menu 
call  itimer(0,0,0, 1  ,area,DIMEN,bgmenn) ; 

//  Initialize  HP  Touch  System 
ihp=iwritw(4,hpinit ,0,luttd) ; 

v   start  periodic  scheduling  of  bginpm 
call  itimer(0,0,0,l,areal, ACTION, bginpm) ; 

it   get  next  task  to  call 
while (1>0) 

< 

call  bgciom(NOMENU); 

killfl  =  NOKILL;        #  Reset  KILL  flag 
H  go  to  (1,2),  innumb;     //  branch  to  requested  task  call 

//       1  call  taskl; 
//       go  to  100; 
7/       2  call  task2; 
//       100  continue; 

> 
%  close (UNIT=lumsg) 

I  close(UNIT-lunstk) 

%  close (UNIT-lumenu) 

I  close (UNIT-lulog) 

end 


t  * 

//  CO  M  H  0  N   R  0  U  T  I  N  E  S 

#  * 
/;*******  **************************************  ************************ 

it  The  following  common  routines  are  used  by  more  than  one 

#  manager. 


#********************************************************************* 
if  * 

it  0.1    E  N  D  F  B  K 

;,i  ******************************************************************** 

I 

//  Initial  release  —  hn/4  Sept  79 

if   NAME: 

#       endfbk(index) 
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f  FUNCTION: 

?/       Stop  any  feedback  initiated  by  an  operator's  input 

ft   CALLING  PROGRAM: 

//       EXECUTIVE  —  the  *-ery  first  tine  (requested  by  RT-11) 

//       RT-11     —  endfbK  is  scheduled  using  itimer 

it   INPUT  PARAMETER: 

//       index  —  NOACTN:  dummy  call  from  EXECUTIVE 

it  index  of  input  'button'  in  array  inopt 

it   INFORMAL  INPUT: 

//       inopt   —  contains  input  option  information 

//  INFORMAL  OUTPUT: 

if  inflag  —  set  to  ACCEPT 

it   NOTES: 

it  This  routine  is  a  completion  routine  and  will  not  be 

//       interrupted  by  any  other  BG  program 

§   ALGORITHM: 

it  if  call  from  EXECUTIVE  return 

//       If  'hardcopy  button'    reverse  button  image 

it  set  inflag  to  ACCEPT 

it 


subroutine  endf bk(index) ; 

//  Lenu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl (TBLMAX) ,  numopt; 

it   KILL  flag  (1:  Kill  current  BG  Task) 
#  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
common  /blklO/killf 1,  inflag; 


//  array  containing  all  input  options 
integer*2  inopt (OPTL.INMAX) ; 
equivalence  (mentbl(l),  inopt(l,l)); 

it   return  if  call  from  EXECUTIVE 
if  (index==NOACTN)  return; 

//  Get  action  code  of  input 
icode  =  inopt (CODE, index) ; 

//  If  hardcopy,  reverse  button 
if(icode  —  AC0DP1  |  icode  «  ACODP2) 
call  enhanc (index, REVEND) ; 

inflag  =  ACCEPT; 

return; 

end 


I********** *** **************************** ****************  A A A** A****** 


//  * 

if  0.2  £  N   II  A  N   C 

it  * 

lif  Initial   release  —   hn/4    Sept    /9 

//  NAME: 

it  enhanc(index, icode) 

//  FUNCTION: 

//       Perform  an  enhancement  function  at  the  TT 

//  CALLING  PROGRAM: 

it  Any  program  of  CG  Controller  that  wants  an  enhancement 

it   INPUT  PARAMETER: 

it  icode  —  specifies  the  enhancement  type 

it  index  —  pointer  to  button  in  array  inopt 

t   INFORMAL  INPUT: 

//       inopt  —  input  option  information 

it   ALGORITHM: 

it  Get  coordinates  of  touch  field 

//       Give  enhancement  commands  to  TT 

it  return 

// 

it  if  it  //  //  if  it  it  it  it  it  #  *  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it 

subroutine  enhanc (index, icode) ; 


it   henu  Table  declaration,  number  of  input  options 
coramon  /blkl  /mentbl  (TBLMAX)  ,  nunopt; 

if   KILL  flag  (1:  Kill  current  BG  Task) 
it   INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
common  /blklO/killf 1,  inflag; 

common  /blkl 7/lumsg, lumstk, lumenu, luttd, lutsys,lulog  ; 

//  Array  containing  all  input  option  information 
integer*2  inopt (OPTL,INMAX) ; 
equivalence  (mentbl(l),  inopt(l,l)); 

//  arrays  containing  the  command  strings  to  do 

//  the  requested  enhancement 
logical*l  icmdl(22),  icmd2(12),  icmd3(6); 

it   ESC3  ESC&axxrxxC  ESCl  ESC&axxC  ESC1  —  set  tabs 
data  icmdl/0 7, 2 7,51,27,33, 97, 00, 00, 11 A, 00, 00, 6 7, 2 7, 49, 
27,38,97,00,00,67,27,49/; 

it   ESC&dxx  ESCI  ESC&dG  —  one  line  of  enhancement 
data  icmd2/0 7, 36, 2 7, 38, 100, 00, 2 7, 7 3, 2 7, 38, 100, 64/; 

//  ESCi  ESCE  —  back  tab,  down  one  row 
data  icmd3/07, 36, 27, 105,27,66/; 
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#   set    enhancement    typ 
Lf(icode  ==  REV)  //   inverse   video 

icnd2(b)=66 
»lse  if(icode   ==  REVEND)  #   inverse, half    bright 

icr.id2(6)  =  74 
Blse  if(icode   ■■  3LKEEG)  //  blinking,    half   bright 

icmd2(6)=73 
?lse   if(icode  ==  BLKEND)  //   inverse,    half   bright 

icmd2(6)=74; 

//  set  coordinates  of  button  into  command  string 
Llx=inopt(LX, index) ;     //  left  x 
irx=inopt (RX, index) ;     #  right  x 
iuy=inopt (oY, index) ;     #  upper  y 
i.ly=inopt  (LY,  index) ;     //  lower  y 

Lcadl(7)=iuy/10+48; 

icndl(8)=mod(iuy,10)+48; 

icmdl(10)=irx/10+43; 

icmdl(ll)=inod(irx,10)+4S; 

icmdl(18)=ilx/10+48; 

Lcmdl(19)«nod(ilx,10)+48; 

ihp=iwritw(ll ,icndl ,0,luttd) ; 

Lhp=iwritw(6,icmd2,0,luttd) ; 

vhile(iuy<ily)      #  while   more    lines    to   enhance 

{ 

iuy=iuy+l ; 

ihp=iwritw(3,icmd3,0,  luttd) ; 

ihp=iwritw(6,icmd2,0,luttd) ; 

> 


return; 
2nd 


i/AAAAAAAAAAAAAA  AAAA  A  A  A*  **************  AAA  ***********  A  ********  A  A  ******** 
I  * 

*  0.3  ERRHSG 

'/  * 

,'*AAAAAAAAAAAAAA  A  AAAAA  A  AAAAAAAAAAAA  AAA  A  AAAAAAAAAAAAAAAA  ************  AAA 

I 

'''   Initial  release  —  hn/7  Sept  79 
/  NA1IE: 

'f  errmsg(mtyp ,mlen,mbuf f ) 

'/  FUNCTION: 

store  a  message  (input  related  or  warning)  in  the  temporary 
'*•'       message  stack  nsgw  or  inpmsg  and  store  an  end-of-ressage 
'?       word 
?  CALLING  PROG RAW: 
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;/       Any  prograui  of  the  BG  Controller  that  wants  a  message 

if  to  be  displayed 

if   INPUT  PARAMETER: 

if  mtyp    -  typ  of  message:  INW  -  input  related  message 

if  Ml  -  warning  message 

//       mien   -  length  of  message  (words) 

if  nbuff   -  array  containing  ASCII  text 

if   INFORMAL  INPUT: 

//       msgw   -  temp,  storage  for  warning  messages 

//       msgwpr  -  read  pointer  for  rcsgw 

//       msgwpw  -  write  pointer  for  msgw 

§   INFORMAL  OUTPUT: 

//       Same  as  informal  input 

if  Additionally 

//       inpmsg  -  text  of  input  related  message 

//  NOTE: 

if  An  overflow  of  this  temporary  stack  will  not  happen,  its 

if  length  is  sufficient  for  all  messages  generated  by  any 

//        completion  level  execution 

if   ALCORITHM: 

//       while  more  literals  to  store 

//         copy  a  word  of  literals 

if  increment  the  write  pointer 

if  if  the  write  pointer  >  stack-length 

//  set  write  pointer  =  1 

//       write  an  end-of-message  word 

it  increment  write  pointer 

//       if  write  pointer  >  stack-length 

if  set  write  pointer  =  1 

if 

it if  if  if  if  if if  if if  if  if  if  if  if  if  it  if  if  if  if  itif  if  if if  if  if  if  if  if  if  if  if if if  if  if if  if  if  if  if  if  if  if if  if  if  if  inf  if  if  if  if  if  if  if  if  if  if  if  if  if<i  if  if  if  if  if 

subroutine  er rmsg (mtyp, mien, mbuff) ; 


if   Storage  for  operator  input  related  messages 
if   and  warning  messages  from  tasks 

logical*l  inpmsg (MSCL),  iwmsg(MSGL); 

cornon  /b  11:5 /inpmsg,  iwmsg; 

//  Storage  for 

//  warning  messages  from  BG  Controller, 

it   read  and  write  pointer  for  msgw 

logical*l  msgw(MSGWL); 

common    /blk6/msgw, msgwpr ,nsgwpw ; 

logical*l    mbuff (MSGL); 

if   Store    input    related    message 
if  (mtyp   ==   INM) 
< 
f or(i=l ; i<=mlen;i=i+l) 

inpmsg(i)    =   mbuff(i);  if   copy    text 
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for(j=mlen+l;    j<MSGL;    j=j+l) 

inpmsg(j)    =  ';    it   blank    into    rest 

} 

//   store    warning    message 
•lse 

{ 

f or(i=l ;i<=mlen; i=i+l ) 

{ 

msgw (msgwpw)  =  mbuff(i);   //  copy  a  word 

//  increment  write  pointer 
if (msgwpw  >=  MSCWL)  tnsgwpw  =  1 
else  msgwpw  =  msgwpw  +  1; 

> 

//  write   end-of-message  word,    increment   pointer 
msgw (msgwpw)    =  ENDOFM; 
if  (msgwpw   >=  !jSGI;L)    msgwpw   =    1 
else   msgwpw   =   msgwpw  +    1; 
> 

return; 
2nd 


t 

'$  0.4       A  S   C  I  K  T 

<l 

:f  *****************  ********************************  ******************** 

'/  Initial   release   —  hn/14   november   79 

I  NAME: 

'/  ascint  (pl,p2,p3) 

If  FUNCTION: 

<r  convert    an  ASCII    coded   integer   into   an   integer 

I  ALGORITHM: 

9  P3=(pl-40)*30   +    (P2-40) 

ti 

miHHHtiti;titiiHHnHhHHHHHHHHHHhHHHHHHt#1HHt#fHHHHhiJHt###ihHHHHHHHHHHHHHHHHW 


subroutine   ascint (pi ,p2,p3) ; 
lnteger*2   pl,p2,p3; 

p3=(pl-40)*30  +  P2-40; 

return; 

end 
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if  **********  *  *******************  *************************************** 

it  * 

#  i.      CONTROL     I/O     MANAGER 

f  * 

£*******  ******************************************************  ******** 

// 

//  initial  release  —  hn/24  aug  79 

#  NAME: 

//  bgcioia(if  lag) 

//  FUNCTION: 

it  process  an  operator  input  request 

I  CALLING  PROGRAMS: 

//  -  any  BG  Task 

it  -  EXECUTIVE 

it  INPUT  PARAMETER: 

it  iflag  —  0:  EXECUTIVE  expects  id  of  next  task  [NOMENU] 

it  1 :  A  BG  Task  requests  a  nenu  to  be  displayed 

it  (Menu  record  number  in  itmenu)   [MENU] 

it  INFORMAL  INPUT: 

it  itmenu  —  record  number  of  any  task  menu  to  be 

it  displayed 

it  INFORMAL  OUTPUT: 

it  intext(TEXTL)  —  one  line  of  text   or 

it  intxtp     —  pointer  for  text  buffer 

//  innunb     —  one  integer  digit  or 

it  inchar     —  one  ASCII  character 

It  ALGORITHM: 

It  bgcion(if  lag) : 

//  clear  input  storage  locations 

It  if  call  from  a  task 

it  schedule  the  MENU  MGR  to  display  menu  immediately 

It  loop  until  input  ready 

it  return  input  to  caller 

if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  4  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  if  it  #  //  it  it  it  #  it  it  it  it  it  it  it  it  ;t  it  If  it  it  it  it  it  it 


subroutine  bgciom(if lag) 
external  bgmenn 

//  Operator  input  storage  declarations 
common  /blk2/intext (TEXTL) , innunb, inchar ,  intxtp; 

//  indone,  flag  input  done 
common  /blkl3/intt (INTTL) ,  inttp,  indone; 

integer*2  area(4);    //  area  for  itimer  call 

//  Preset  input  storage  locations 
innunb  =  -1 ; 
inchar  =  '//#'; 
intext (!)«'##'; 
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:or  (i=2;i<=TEXTL;i=i+l) 
intext(i)  =  '   '; 

#  preset  pointer 
Lntxtp  =  1; 

t   Schedule  MENU  MGR  immediately  after  1  clock  tick 
//  if  task  menu  is  to  be  displayed 
if  (if  lag  ==  MENU) 
call  itimer(0,0,0,l,area,DTMEN,bgmenn); 


#  Loop  until  an  input  is  done 
#  preset  flag 
indone  =  NODONE; 
^hile(indone  —  NODOKE); 
return; 
end; 

#****** *******  ************** **** ******* ********** ********************* 


94 


I  * 

|f  2.   INPUT   MANAGER 

f  * 

K 

i*  initial  release  —  hn/24  aug  79 

I  NAME: 

f  bginpm(inp) 

}   FUNCTION: 

f  Processing  of  operator  inputs  from  touch  panel /keyboard 

r  CALLING  PROGRAM: 

)  EXECUTIVE  —  the  very  first  time  (requested  by  RT-11) 

t  RT-11  —  bginpm  is  scheduled  by  an  input  interrupt  driver 

}   INPUT  PARAMETER: 

f       inp  —  0  (NOACTN):  Dummy  call  from  EXECUTIVE 

)  TTINP:   Input  from  TT 

*  KEYINP:  Input  from  keyboard 

I  INFORMAL  INPUT: 

f       inopt  —  contains  input  options  and  action  codes 

f  intt   —  input  buffer 

I  INFORMAL  OUTPUT: 

f       intext(TEXTL)  —  one  line  of  text  or 

(       innumb     —  one  integer  number  or 

f       inchar     —  one  ASCII  character 

f       inflag     —  ACCEPT  -  accept  input 

f  NOACPT  -  do  not  accept  input 

i   NOTES: 

This  routine  is  a  completion  routine  and  will  not  be 

1  interrupted  by  any  other  3G  program. 

1  Same  applies  to  all  routines  called  from  bginpm. 

!  ALGORITHM: 

1  re-schedule  its  call  (after  .1  seconds) 

f       convert  and  check  input 

i  if  input  invalid 

f  schedule  MESSAGE  MGR  for  'Illegal  Input'  and  return 

(         else 

'  schedule  MSG  MGR  to  erase  any  input  related  message 

'       provide  feedback  to  operator  (reverse  button) 
call  LOG  MGR  to  log  command 
if  a  new  menu  is  to  be  displayed 

schedule  MENU  MGR  to  display  new  menu 
else 

schedule  MENU  MGR  to  erase  current  menu  in  1  second 
if  input  for  task- 
save  input  for  CONTROL  I/O  MGR 
else 

call  the  CONTROL  COMMAND  MGR 

return 

t 

!  //  f  //  //  #  //  it  if  //  it  //  //  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 


subroutine   bginpm(inp) 
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xternal  bgmsgn; 
xternal  bgmenm; 
xternal  bginpm; 


//  Menu  Table  declaration,  number  of  input  options 
ommon  /blkl/mentbl(TBLMAX)  ,  nunopt; 

it   Operator  input  storage  declarations 
oramon  /blk2/intext (TEXTL) , innunb, inchar , intxtp; 

it   Storage  for  menu-id's  to  be  erased  or 
it   to  be  displayed,  initiated  by  the  controller 
ommon  /blk3/iecmen, icnenu; 

//  Storage  for  menu-id's  to  be  erased  or 
it   to  be  displayed,  initiated  by  a  task 
:onmon  /blk4/ietmen,  itmenu; 

//  Storage  for  operator  input  related  messages 
#  and  warning  messages  from  tasks 

it   Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
:oomon  /blk7/menstk(MENSTX) ,  menstp,  menstn; 


it   Menu  record  number  of  current  menu's  predecessor, 
it   menu  record  number  of  current  or  saved  task  menu  , 
//  name  of  active  BG  Task  (if  any), 
//  and  current  menu's  type 
:ommon  /blk9/ipredm, icurtm, iactsk(TNL) ,  mentyp; 


//  KILL  flag  (1:  Kill  current  BG  Task) 
it   INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
:onmon  /blklO/killf  1,  inflag; 

it   input  buffer,  pointer,  input-done  flag 
:ommon  /blkl3/intt (INTTL) ,  inttp,  indone; 

:omnon  /ttinbf /endchl , endch 2, flag, count , char ; 

Logical*l  char(80); 

Lnteger*2   endchl ,endch2, flag, count; 


Lnteger*2    inx,iny 

#  Storage    for   keyboard   entry 
Lnteger*2    inkey 

Lnteger*2    areal(4);  //  area   for   itimer   to 

//  schedule   the  MENU  MGR 

Lnteger*2   area2(4);  it  area   for   itimer   to 

//  schedule    the  MESSAGE  MGR 
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nteger*2  area3(4);  //  area  for  itir.er  to 

//  schedule  itself 

if   Array  containing  all  input  options 
nteger*2  inopt (0PTL,INMJVX)  ; 
quivalence  (mentbl(l),  inopt(l,l)); 

it   Do  not  process  first  dummy  call  from  EXECUTIVE 
f(inp  ==  NOACTN)  return; 

it   Re-schedule  itself 
all  itimer(0, 0,0, 6, area3, ACTION, bginpm) ; 

//  return  if  no  input  done 
f(count==0)  return; 

it   reset  buffer  pointer 
:ount=0; 

it   Do  not  accept  any  input  if  inflag  set 
.f(inflag  ==  NOACPT)   return; 


inx  =  char(2) ; 
iny  ■  char(3) ; 

j  -  l; 

Lnvflg=0;       it   flag  set  if  valid  coordinates  found 
while ( j<=nuraopt) 
{ 

i=j  ;  it   save  index 

if (inx<=inopt(RX, j )  &  inx>=inopt (LX, j ) 
&  iny<=inopt (LY, j )  &  iny>=inopt (UY, j ) ) 
{  invflg-1; 
break;  } 

J-j+i; 

} 

if  (invflg==0)  it   if    invalid   input, schedule  MSG   MGR 

{ 

call   errmsg(INM, 13, 'INVALID    INPUT'); 
call   itimer(0,0,0,l,area2,DINPUT,bgmsgm); 
return; 
> 


call  bglogm(i);    it   log   command 
call   feedbk(i);    it  provide    feedback 

//   interpret    input   action    code 
icode  =   inopt(CODE.i) ; 
if(icode   >=  AC0DP1   &    icode<=AC0DCN)  it  processed  by   bgcmdm 

call   bgcmdm(i);  it  pass    input 

return; 

if  (icode  ■■  ACODEM)  it  display   new  menu 

{ 

icmenu  =   inopt (ANNEX, i) ; 
call   itimer(0,0,0,l,areal,mentyp,bgmenm);    it  schedule  MENU   MGR 
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} 

Lse    #  erase  current  display  in  1  second 

{ 

if(mentyp   ==  TASK)  #  current    task   nenu 

{ 

ietmen  =  icurtm;     //  task  menu  id 

call  itiraer(0,G,  1 , 0,areal,ETMEN,bgmenm) ; 

} 
else  if(menstp>0) 

< 

iecmen  ■  menstk(raenstp) ; 

#  Mark  menu  on  top  of  stack  to  be  erased 
mens tk (mens tp)  =  -mens tk (mens tp ) ; 

call  itimer(0,0,l,0,areal,ECMEN,bgmenn);  //  schedule  MENU  MGR 
> 
} 

f(icode  ==  ACODET)  if   if  text  input 

{ 

intext(intxtp)    -  inopt (ANNEX, i) ; 
intxtp   ■   intxtp+1; 
'  if (I  I  I  I  I  I    c/r    If    or   so) 
indone  =  DONE; 
return; 
} 

Lf(icode  ==  ACODEN)  if   if    integer 

{ 

innumb  ■   inopt (ANNEX,!) ; 
indone  -  DONE; 
return; 
} 

if(icode   ==  ACODEC)  #   if    character 

{ 

inchar  =   inopt (ANNEX,!) ; 
indone   =  DONE; 
return; 
} 

end 


//**********  **  ****  **********************  ******************************* 
I  * 

if  2.1         F   E   E   D    B   K 

§  * 

//********************************************************************* 

// 

it   Initial  release  —  hn/4  Sept  79 

it   NAME: 


f eedbk(index) 
FUNCTION : 

Provide  feedback  to  an  operator's  input 
CALLING  PROGRAM: 

bginpm 
INPUT  PARAMETER: 

index  —  index  for  input  in  array  inopt 

■  INFORMAL  INPUT: 

inopt  —  array  containing  input  information 
I  INFORMAL  OUTPUT: 

inflag  —  NOACPT  -  Do  not  accept  any  input 
'■■   ALGORITHM: 

■  Provide  accustic  feedback 
I       Set  inflag  to  NOACPT 

If (STATUS | SELECT | HELP | CONTROL (ACKNOWLEDGE) 
<  return; 

'       else 

I  reverse  button 

I  schedule  endfbk  in  .5  seconds  to  reverse  button  back 

} 

subroutine  f eedbk(index) ; 
external  endfbk; 


#  Menu  Table  declaration,  number  of  input  options 
:ommon  /blkl /mentbl(TBLMAX) ,  nunopt; 


#  KILL  flag  (1:  Kill  current  BG  Task) 

#  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
:onunon  /blklO/killf  1,  inflag; 

//  Array  containing  input  information 
Lnteger*2  inopt (OPTL.INMAX) ; 
equivalence  (mentbl(l),  inopt(l,l)); 

#  array  for  itimer  call 
Lnteger*2  area(4) ; 

#  get  action  code  of  input 
icode  =  inopt(C0DE, index) ; 

ii-'l  I  I  I  l  l  provide  accustic  feedback 

//  Do  not  accept  input  during  feedback  period 
inflag  =  NOACPT; 

//  If  Status, Select, Help, Control, Acknowledge:  return 
//  else  reverse  button,  schedule  end  of  feedback 
if  (icode  <  ACODAC) 
{ 
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call  enhanc(index,REV) ; 

call  i timer (0,0, 0,30, area, index, endfbk) ; 

} 

jturn; 
id 
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********************************************************************* 

* 

3.   CONTROL   COMMAND   MANAGER 

* 
********************************************************************* 

Initial  release  —  hn/24  aug  79 
NAME: 

bgcradrn(inx) 
FUNCTION: 

Process  operator  inputs  fron  permanent  displayed 
control  'buttons'  and  from  nenus  initiated  by 
the  BG  Controller. 
CALLING  PROGRAM: 

Input  Manager  (bginpra) 
INPUT  PARAMETER: 

inx  -  index  in  inopt,  specifies  kind  of  input 
INFORMAL  INPUT: 

mentbl  —  menu  table  with  all  input  options 
mentyp  —  type  of  current  menu 
INFORMAL  OUTPUT: 

killfl  —  1:  current  task  is  to  be  killed 
ALGORITHM: 

If  input  from  permanent  button 

{  If  PRINT  CRT1/2:  Initiate  hardcopy; 

If  ACKNOWLEDGE  :  Schedule  MSG  MGR  to  erase  warning  rasg 
If  STATUS, HELP, 
SELECT, CONTROL: 
{  If  control  function  is  active,  erase  menu; 

If  function  not  active,  display  its  first  menu; 
> 
> 
If  input  from  a  controller  menu  button 
<  If  SELECT-menu  (start  a  new  task) 
{  Erase  SELECT  menu; 
Set  the  KILL  flag 
Return  new  task-id; 

} 

If  CONTROL -menu: 

Call  the  PB  MGR  to  process  the  input; 

> 

//  //  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 


ubroutine  bgcmdm(inx) ; 

xternal  bgmsgm; 
xternal  bgmenn; 


it   Menu  Table  declaration,  number  of  input  options 
onmon  /blkl/mentbl(TBLMAX) ,  numopt; 

//  Operator  input  storage  declarations 
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onmon  /blk2/intext (TEXTL) , innurab, inchar, intxtp ; 

#  Storage  for  menu-id's  to  be  erased  or 

if   to  be  displayed,  initiated  by  the  controller 
omnon  /bllc3/iecnen,  icmenu; 

if   Storage  for  menu-id's  to  be  erased  or 

#  to  be  displayed,  initiated  by  a  task 
onmon  /blkA/ietnen,  ittnenu; 


//  Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
:onmon  /blk7/menstk(KENSTX) ,  menstp,  menstn; 


//  Menu  record  number  of  current  menu's  predecessor, 
if   menu  record  number  of  current  or  saved  task  menu  , 
if   name  of  active  EG  Task  (if  any), 
if   and  current  menu's  type 
:oramon  /blk9/ipredm, icurtm, iactsk(TNL) ,  mentyp; 


//  KILL  flag  (1:  Kill  current  BG  Task) 
if   INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
:onmon  /blklO/killf 1,  inflag; 

//  record  numbers  of  initial  menus  known 
if   to  the  BG  Controller 

if    DStatus,  2)Select,  3)Help,  4)Control  5)Start 
:onmon  /blkll/instat ,  insel,  inhelp,  incont,  instrt; 

if   arrays  for  itimer  calls 
Lnteger*2  areal(4); 
Lnteger*2  area2(4); 

//  array  for  input  option 
Lnteger*2  inopt (OPTL,INMAX) ; 
equivalence  (mentbl(l),  inopt(l,l)); 


if   save  action  code 
Lcode  -  inopt(CODE,inx) ; 

Lf(inx  <=  CONMAX)       if   permanent  control  buttons 
{if(icode  ==  ACODPl)  if   hardcopy  CRT1 

< 

#111111111  initiate  hardcopy 
return; > 

else  if(icode  ==  AC0DP2)      //  hardcopy  CRT2 
{ 

ii-\  I  I  I  1  H  I  initiate  hardcopy 
return; } 


else  if (icode  ==  ACODAC)      if   ACKNOWLEDGE 

{ 

//  Erase  warning  message 

call  i timer (0,0, 0,1, a real , EWARN,bgmsgm) ; 

return; > 

else  //  STATUS,  SELECT,  HELP,  CONTROL:  either 

#  erase  current  menu  or  display  initial  one 

< 

kode  =  icode-8;    //  kode  and  nentyp  same  meaning 

if(mentyp  ■«  kode)        #  erase  menu,  switch  off  function 

< 

iecmen  ■  raenstk(menstp) ;        if   copy  current  menu-id 

#  Mark  menu  on  top  of  stack 
menstk(menstp)  =  -menstk(menstp) ; 
call  itiraer(0,0,0,l,area2,ECMEN,bgmenn) ; 
return; 

} 
else      #  display  initial  menu,  switch  on 

< 

if  (icode  ==  ACODST)      if   status 

icraenu  ■  ins  tat 
else  if (icode  ==  ACOUSE)  select 

icmenu  ■  insel 
else  if  (icode  «  ACODHP)        If   help 

icmenu  ■  inhelp 
else  if  (icode  ==  ACODCN)        if   control 

icmenu  =  incont; 
call  i timer (0,0, 0,1  ,area2,kode,bgmenr.) ; 
return; 
} 
> 
} 

if   input  from  a  controller  menu 

slse  if  (icode  ==  ACODTK)        #  new  task 
{ 

innumb  =  inop t  (ANNEX,  inx) ;    if  task-id  for  EXECUTIVE 

killfl  =  KILL;  if  kill  any  running  task 

ietmen  ■  icurtm; 
call  itimer(0,0,0,l,areal,ETMEN,bgmenm);  //  erase  task  menu 

//  erase  current  select  menu 
iecmen  =  menstk(raenstp ) ; 
menstk(menstp)  ■  -mens tk (mens tp ) ; 
call  itimer(0,0,0,l,area2,ECMEN,bgmenm); 
return; 
> 

:lse    if   input  for  PB  MGR 
< 

call  bgpbm(inx); 
return; 

} 


in-^ 


;turn; 
id; 

*************** **** ********************** ************  ******** ******** 
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******************************************************************** 

* 

A.   MENU   M  A  N  A  G  E  R 

* 
******************************************************************** 

Initial  release  —  hn/6  Sept  79 
NAME: 

bgmenn(itype) 
CALLING  PROGRAM: 

EXECUTIVE  —  the  very  first  tine  (requested  by  RT-11) 
RT-11     —  bgmenm  is  to  be  scheduled  using  itiner  call 
FUNCTION: 

Update  the  enhancements  of  some  permanent  'buttons' 
Process  other  program's  request  to  display/erase  a  menu 
Read  a  menu  from  the  menu  file  and  update  the  TT  display 
Do  not  allow  any  operator  input  while  changing  the  display 
INPUT  PARAMETER: 

itype  —  specifies  the  kind  of  action  requested  by  the 
scheduling  program 
NOACTN  -  dummy  call  from  EXECUTIVE 
DIMEN   -  display  initial  start  menu 
DSMEN   -  display  status  menu 
DSEMN   -  display  select  menu 
DKMEN   -  display  help  menu 
DCMEM   -  display  control  menu 
DTMEN   -  display  BG  Task  menu 
ECMEN   -  erase  a  control  menu 
ETMEN   -  erase  a  task  menu 
INFORMAL  INPUT: 

menstk  -  menu  stack 
menstp  -  menu  stack  pointer 
icraenu  -  controller  menu  to  be  displayed 
iecmen  -  controller  menu  to  be  erased 
itmenu  -  task  menu  to  be  displayed 
ietraen  -  task  menu  to  be  erased 
mentyp  -  type  of  current  menu 
mentbl  -  menu  table  for  storage  of  input 
and  image  information 
INFORMAL  OUTPUT: 

inflag  —  ACCEPT:  accept  operator  input 
NOTE : 

This  routine  is  a  completion  routine  and  will  not  be 
interrupted  by  any  other  BG  program 
ALGORITHM: 

if  NOACTN   return; 
set  inflag  to  NOACPT 
if  DIMEN 

Display  any  next  menu 
if  DSMEN, DSEMN, DHMEN.DCMEN 

if  displayed  menu  is  of  the  same  type 

replace  the  menu  by  the  new  one 
else  save  the  old  one  and  display  the  new  one 
if  DTMEN 
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Save  new  task  menu  id 
i         if  a  task  nenu  is  being  displayed 
replace  it  by  the  new  one 
if  ECMEN 

if  the  menu  is  being  displayed 
display  the  next  saved  nenu 
if  ETMEN 

if  the  task  menu  is  being  displayed 
display  any  waiting  menu 
set  inflag  to  ACCEPT 
return 

|f#################################################################### 

ibroutine  bgmenm(itype) ; 


it   Menu  Table  declaration,  number  of  input  options 
Dranon  /blkl/mentbl (TBLMAX) ,  nunopt; 


it   Storage  for  menu-id's  to  be  erased  or 
it   to  be  displayed,  initiated  by  the  controller 
onimon  /blk3/iecmen, icraenu; 

#  Storage  for  menu-id's  to  be  erased  or 
it   to  be  displayed,  initiated  by  a  task 
onmon  /blk4/ietmen, itmenu; 


it   Menu  stack,  stack  pointer,  number  of  saved  nenu  stacks 
onmon  /blk7/menstk(MENSTX) ,  menstp,  menstn; 


it   Menu  record  number  of  current  menu's  predecessor, 
it   menu  record  number  of  current  or  saved  task  menu  , 
//  name  of  active  BG  Task  (if  any), 
if   and  current  menu's  type 
omnon  /blk9/ipredm,icurtm, iactsk(TNL) ,  mentyp; 


it   KILL  flag  (1:  Kill  current  BG  Task) 
#  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
onmon  /blklO/killf 1,  inflag; 

onmon  /blkll /instat , insel, inhelp.incont , instrt ; 

it   Array  containing  all  input  options 
nteger*2  inopt (OPTL,INMAX) ; 
quivalence  (mentbl(l),  inopt(l,l)); 

it   No  action  on  dummy  call  from  EXECUTIVE 
f(itype  ==  NOACTN)  return; 
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#  Do  not  allow  any  operator  input 
if  lag  -  KOACPT 

//  Display  initial  start  menu 
:(itype  —  DIMEN) 

{ictnenu  =  0;         //  reset  store 
call  mdispl;        #  display  any  waiting  menu  or  initial  one 
> 

it   Display  Status  .Select, Help, Control  menu 
lse  if (itype>-DSMEN  &  itype<=DCMEN) 

{ 

if(itype  ==»  nentyp)   •//  menu  of  same  type  on  TT 

{  ' 

call  mepop;  #  erase  current  menu 

if(mepush(l)  ==  OK)  '}  push  new  menu 

call  mdispl;    #  display  new  menu 
> 

else                ir  menu  of  different  type  on  TT 
{ 

if(mepush(l)  ==  OK)  #  Menu  pushed  on  top  of  menu-stack 

call  mdispl;    #  Display  the  new  menu 

} 
icmenu  =  0;  ft   reset  store 

> 

??  Display  task  menu 
lse  if(itype  ==  DTMEN) 
{ 

if(icurtm  !=  itmenu)    y/  if  different  task  menu 
{ 

icurtm  =  itmenu;      #  save  menu  id 

if  (mentyp==TASK  |  mentyp==STAKT)T//  task  menu  is  being  displayed 

#  or  initial  start  menu 
call  mdispl;      #  display  new  task  menu 
> 
itmenu  =  0;  #  reset  store 

} 

//  Erase  controller  menu 
lse  if(itype  ==  ECMEW) 
{ 

#  get  absolute  menu  id  on  top  of  menu  stack 
i  =  menstk(rcenstp) ; 

if(i<0)  i=-i; 

if(iecmen  ==   i)  //  menu   is    being   displayed 

{ 

call  mepop;       #  pop  menu  on  top  of  stack 

call  mdispl;      #  display  next  menu 

} 
iecraen  =0;  #  reset  store 

> 

#  Erase  task  menu 
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Ise   ifUtype  ==  ETMEN) 

{ 

if(icurtm  ==   ietnen)    it   menu    to   be   erased   is    saved   or 

it  being   displayed 

{ 

icurtm  =0;       it   erase  menu  store 

if(mentyp  ■«  TASK)  it   old  task  menu  being  displayed 
call  mdispl;    it   display  new  task  menu 

> 
ietmen  ■  0;  //  reset  store 

> 

it   Allow  operator  input 
nflag  -  ACCEPT; 

eturn; 
nd 


******************************************************************* 

* 

4.1    M  E  P  U  S  H 

* 
********************************************************************* 

Initial  release  —  hn/6  Sept  79 
NAME : 

mepush(i) 
CALLING  PROGRAM: 

bgmenn 
FUNCTION : 

Push  a  new  controller  menu  id  on  top  of  the  menu  stack, 
save  any  full  stacks  on  disc 
INPUT  PARAMETER: 

i  —  dummy  parameter  (needed  for  function  call) 
INFORMAL  INPUT: 

menstk  -  menu  stack 
menstp  -  menu  stack  pointer 
menstn  -  number  of  saved  stacks  on  disc 
icmenu  -  menu-id  to  push 
FUNCTION  OUTPUT: 

OK    -  new  menu-id  on  top  of  menu  stack 
NOTOK  -  a  full  stack  could  not  be  written  onto  disc 
new  menu-id  is  not  on  top  of  menu 
INFORMAL  OUTPUT: 

menstp  -  menu  stack  pointer 
ALGORITHM: 

if  menu-stack  full 

increment  stack  counter 
write  stack  onto  disc 
if  write  not  possible 

decrement  stack  counter 
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initiate  display  of  a  warning  message 

return  NOTOK 
else  reset  stack  pointer 
else  increnent  stack  pointer 
store  menu-id  on  stack 
return  OK 


mction  nepush(i); 
-eternal  bgmsgn 


it   Storage  for  menu-id's  to  be  erased  or 
//  to  be  displayed,  initiated  by  the  controller 
:>ramon  /blk3/iecmen,icmenu; 


it   Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
Dinnon  /blk7/menstk  (HENSTX)  ,  menstp,  menstn; 

it   Array  for  itimer  call 
nteger*2  area(4) ; 
nteger*2  lumstk; 
ata  lumstk/LUMSTK/; 


f (menstp>=MENSTX)      //  menu  stack  full 
< 
menstn  =  menstn+1;    it   incr  counter  for  saved  stacks 

it   write  stack  onto  disc,  if  error  goto  9999 
write (lunstk 'mens tn,ERR=9 999)  menstk 
menstp  =  1;  it   reset  stack  pointer 

> 
lse  //  no  stack  overflow 

menstp  =  menstp+1;    it   incr  stack  pointer 

it   Store  menu-id  on  stack 
ens tk (menstp)  =  icmenu; 
epush  =  OK; 
eturn; 

it   If  write  could  not  be  done  properly 
999    menstn  =  raenstn-1;      //  reset  counter 

it   Initiate  display  of  warning  message 
call  errmsg(WM,27,  "MENU  STACK  WRITE  IMPOSSIBLE'); 
call  itimer(0,0,0,l,area,DWARN,bgmsgm); 
mepush  =  NOTOK; 
eturn; 
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tit******************************************************************* 

* 

4.2     M  E  P  0  P 
*************  ****************************************  **************** 

Initial  release  —  hn/6  Sept  79 
NAME: 

mepop 
FUNCTION: 

Pop  the  menu  on  top  of  the  stack, 
read  any  menu  stacks  saved  on  disc 
INFORMAL  INPUT: 

nenstk  -  menu  stack 
menstp  -  menu  stack  pointer 
menstn  -  number  of  saved  stacks  on  disc 
INFORMAL  OUTPUT: 

menstp  -  menu  stack  pointer 
ALGORITHM: 

decrement  stack  pointer 
while(stack  in  memory  or  on  disc) 
while  (stack  pointer  >  0) 

if (menu-id  positiv)  return 
else  decrement  stack  pointer 
if (stack  saved  on  disc) 
read  stack 
if (improper  read) 

initiate  warning  message 
return 
decrement  stack  counter 
reset  stack  pointer  to  top  of  stack 
return 

mmmwMmmmpmmMMitmmmmmtmmmMt* 


ubroutine  mepop; 
xternal  bgmsgm; 


#  Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
:onmon  /blk7/menstk(MENSTX) ,  menstp,  menstn; 

common  /blkl 7/lumsg, lumstk, lumenu, luttd, lutsys , lulog; 

it   array  for  itimer  call 
Lnteger*2  area(4); 


110 


#  decrement  stack  pointer 
;  (menstp>0)  menstp  =  r:enstp-l; 

#  while  there  is  a  stack  in  memory  or  on  disc 
uile(nenstp>0  |  nenstn>0) 

{ 

//  while  a  stack  in  memory 
while(menstp>0) 

{ 

if  (mens  tk  (mens  tp)>0)  return       //  next  menu  found 

else  menstp  ■  menstp-1; 

> 

#  if  stack  saved  on  disc 
if (menstn>0) 

{ 

read ( lumstk 'mens tn,ERR=9999)  menstk 
menstn  ■  menstn-1;        //  update  stack  counter 
menstp  =  MENSTX;  //  update  stack  pointer 

} 
> 
aturn;  1!   return,  stack  is  empty 

//  If  read  could  not  be  done  properly 

#  Initiate  display  of  warning  message 

999  call  errmsg(WM,26,'MENU  STACK  READ  IMPOSSIBLE'); 

call    itimer(0,0,0, 1 ,area,DWARN,bgnsgn) ; 
eturn; 
nd 


********************************************************************* 

* 

4.3  HDISP1 

* 

********************************************************************* 

Initial  release  —  hn/7  Sept  79 
NAME : 

mdispl 
CALLING  PROGRAM: 

bgmenm 
FUNCTION: 

Get  the  next  menu  to  be  displayed 

a)  a  controller  menu  on  stack 

b)  a  task  menu 

c)  initial  start  menu 

Read  and  display  the  menu  image 
Read  and  store  the  input  option  information 
Update  the  enhancement  of  certain  permanent  buttons 
Generate  error  messages  if  read/write  impossible 
INFORMAL  INPUT: 
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//      menstk  -  controller  menu  stack 
//      icurtm  -  task  menu 
H  instrt  -  initial  start  menu 

//      menstp  -  menu  stack  pointer 
^INFORMAL  OUTPUT: 

inopt   -  array  containing  input  option  information 
ALGORITHM: 

i  If  controller  menu  on  stack 

i  get  menu-id 

i  else  if  task  menu 

f        get  menu-id 

\  else  get  initial  start  menu-id 

I 

while(image  records  on  disc) 
read  a  record 

if  read  error,  display  message,   return 
display  image  of  the  record 
if  write  error,  display  message,   return 

read  all  input  option  records 

if  read  eror,  display  message,  return 

update  enhancement  of  certain  permanent  buttons 

return 

ibroutine  mdispl; 

xternal  bgmsgm; 

#  tlenu  stack,  stack  pointer,  number  of  saved  menu  stacks 
onmon  /blk7/menstk(MENSTX) ,  menstp,  menstn; 


//  Menu  record  number  of  current  menu's  predecessor, 
//  menu  record  number  of  current  or  saved  task  menu 
//  name  of  active  BC  Task  (if  any), 
//  and  current  menu's  type 
or.mon  /blk9/ipredm,  icurtm,  iactsk  (T?!L) ,  mentyp; 


ommon  /blkll/instat , insel, inhelp,incont , instrt ; 

it   number  of  warning  messages  to  be  displayed 
//  index  to  warning  message  stack  half  to  write  into 
//  first  message  stack  record  number  on  disc  file 
//  last  message  stack  record  number  on  disc  file 
onmon  /blkl2/msgcnt ,  mgstsw,  mfrec,  mlrec; 


//  array  for  itimer  call 
nteger*2  area(4); 


#  get  menu-id  to  be  displayed 
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i(menstp  >  0)  //   controller-menu 

irec  =  mens tk (mens tp) 
ese  if(icurtm  1=  0)     #  task  menu 

irec  =  icurtia 
ese  irec  =  instrt;      #  Initial  start  menu 

//  reset  offset  for  disc  records 
i=  0; 

#  preset  flag 
ione  =  NODONE; 

//  while  any  image  records  on  disc,  read  and  display  their; 
,iile(idone  !=  BONE  &   i<=3) 
{ 

//  read  one  image  record 
call  rimage(irec+i,if lag, i done) ; 

//  if  read  error,  display  message  and  return 
if  (if  lag  —  NOTOK) 
{ 

call  errmsg(WM,20,'MENU  READ  IMPOSSIBLE'); 
call  i timer (0,0,0, 1  , area,DUARN,bgmsgn) ; 
return; 
> 

#  increment  record  offset 
i  -  i+1; 

//  display  one  image  record 
call  dimage(if lag) ; 

#  if  write  error,  display  message  and  return 
if  (if lag  ==  NOTOK) 

{ 

call  errmsg(WM,23, 'MENU  DISPLAY  IMPOSSIBLE'); 
call  itimer(0,0,0, 1  ,area,DWARN,bgmsgn) ; 
return; 
> 
> 

#  read  all  input  option  information 
ill  rinopt (irec, if  lag) ; 

#  if  read  error,  display  message  and  return 
:  (if lag  ==  NOTOK) 

< 

call  errmsg(WM,20,'MENU  READ  IMPOSSIBLE'); 

call  itimer(0,0,0, 1 ,area,DWARN,bgmsgm) ; 

return; 

> 

#  Update  any  enhancements  of  control  buttons 
ill  updenh; 

;turn; 
id 
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1   ******************* A************* ******************* A*********** A *** 
)  * 

4.3.1      R  I  M  A  G  E 

)  * 

j.***********A***************************************A***^A*-A-*a*aa**** 

i 

;  Initial  release  —  hn/7  Sept  79 
: NAME: 

rimage(menrec, if  lag, idone) 
CALLING  PROGRAM: 

mdispl 
FUNCTION: 

read  a  specified  menu-record  into  mentbl 
if  end-of-inage  ,  set  flag  idone 
INPUT  PARAMETER: 

inenrec  -  record  number  to  read 
OUTPUT  FAP.AMETER: 

iflag  -  MOTOK:  Read  error 

CK    :  read  ok 
idone  -  DONE   :  end-of-inage  recognized 
NODONE:  no  end-of -image 
INFORMAL  OUTPUT: 

mentbl  -  menu  image  starting  at  mentbl(IMAGEX) 
ALGORITHM: 

read  image  record 
if  read  ok 

if  last  image  record 

set  flag  to  DONE 
return  flag  OK 
else  return  flag  NOTOK 

#  f  #  //  #  #  #  //  #  //  /;  //  #  #  //  #  //  #  jf  #  //  //  #  #  #  #  //  //  #  #  #  #  #  *  //  #  //  #  #  ?/  #  #  # '/  #  #  #  //  #  #  #  //  #  //  //  #  #  #  #  //  #  #  #  #  #  #  #  //  •/ 

ubroutine  rimage(menrec, if  lag, idone) ; 

#  Menu  Table  declaration,  number  of  input  options 
omcion  /blkl /mentbl (TBLMAX) ,  nunopt; 

oration  /blkl 7/lumsg, lumstk,lumenu,luttd,lutsys, lulog; 

//  array  for  temporary  image  storage 
ogical*l  image (TBLMAX); 
quivalence  (mentbl (IMAGEX) ,  image(l)); 

rec=menrec ; 

t   read  inage  record 
read(lumenu'irec,ERR=9999)  (image(i) , i=l ,540) 

//  if  last  record  read,  set  done  flag 
f(image(540)  ==  EKDOFR)        #  last  word  in  record  =  code 
idone  =  DONE; 
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//   return    read   ok 
ilag  =  OK; 
rturn; 

If   return  NOTOK,    if    read   error 

<99  if lag  ■  NOTOK; 

1  turn; 

Id 


:******************************************************************** 

* 

4.3.2  D    I   M  A  G   E 

c***** ********* ** ********** *  ************ * **************** ** ****** **** 

Initial  release  —  hn/10  Sept  79 
NAME : 

dimage(if lag) 
CALLING  PROCRAH: 

mdispl 
FUNCTION : 

Display  the  menu  image  stored  in  image 
OUTPUT  PARAliETER: 

iflag  -  OK:  No  write  error 
NOTOK:  Write  error 
INFORMAL  INPUT: 

image   -  image  of  menu  display 

image  starts  at  mentbl (IMAGEX) 
ALGORITHM: 

while  there  are  more  image  commands 
write  commands  to  display 
if  write  error,  return  NOTOK 
return  OK 

//  #  #  //  #  //  #  //  #  1}  #  #  #  //  #  //  //  /; ,-/  //  //  //  #  //  #  #  //  //  #  #  #  #  #  //  #  //  ?/  # :/  //  #  //  *  //  //  //  it  //  //  #  #  #  //  //  #  #  #  //  #  //  //  #  #  //  #  #  #  #  # 

ubroutine  dimage(if lag) ; 

#  Menu  Table  declaration,  number  of  input  options 
onunon  /blkl /mentbl (TBLMAX) ,  numopt; 

onmon  /blkl 7/lumsg, lumstk, lumenu, lut td, lutsys , lulog; 

//  output  buffer  with  pointer 
ogical*!  buff (62); 
nteger*2  buffx; 

//  array  containing  the  menu  image 
ogical*l  image (TBLMAX); 
quivalence  (mentbl (IMAGEX) ,  image(l)); 

//  command  string  to  position  cursor  to  start 
it   of  input  related  message  field  after  the  new 
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if   image  has  been  transferred  to  the  TT  Display 
]gical*l  cmd(10); 
eta  cmd/07, 27, 38, 9 7, 50, 49, 114, 50, 49, 67/; 


//  preset  ending  index  used  in  loop 
jdend  =  0; 

if   send  always  '$'  at  beginning  of  command  string 
tff(l)=36;  buff(2)-36; 

if   do  forever,  check  if  more  commands  stored 
if   if  any  and  less  than  display  buffer  size, 
if   write  the  commands 
uile(l>0) 

{ 

if   preset  begin  index  and  end  index  for  checks 
indbeg  =  indend+1; 
indend  =  indend+60; 
buffx=3;     if   first  entry  for  command  string 

if   check  all  entries  in  image  between  indbeg  and  indend 
for(index=indbeg;  index<=indend;  index=index+l) 

< 

buff (buf f x)=image (index) ; 

buffx=buffx+l; 

//  if  end-of-image  or  end-of-physical-record 

//  write  rest  of  image 
if  (index>TBLIlAX  |  image  (index)  ==EMD0FI ) 

{ 

buf f x=buf f x-1 ; 

buff (buffx)=36;  if    '$' 

nwords=buf f x/2 ; 

ihp=iwritw(nwords ,buff,0,luttd); 
//  return  flag  write  OK 

//  position  cursor  after  image  commands  done 
ihp=iwritw(5,cmd,0, luttd) ; 
iflag  -  OK; 
return; 
> 
> 

//  write  image 
ihp=iwritw(31,buff ,0, luttd); 
} 


000  format(80al); 

#  write  error  if  here 
>999  iflag  =  NOTOK; 
"eturn; 
md 
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/,******************************************************************** 

* 

i  4.3.3     RINOPT 

il  * 

I  ***************************** *************************************** 

i 

I  Initial  release  — hn/10  Sept  79 
j  NAME : 

i  rinopt(menrec, if lag) 

(CALLING  PROGRAM: 
i      mdispl 
I  FUNCTION : 

i      read  all  input  option  information 
read  menu  parameter  and  save  them 
INPUT  PARAMETER: 

menrec  -  number  of  first  record  of  the  menu 
OUTPUT  PARAMETER: 

iflag   -  OK:  No  read  error 
NOTOK:  read  error 
INFORMAL  OUTPUT: 

mentbl  -  input  option  information 
numopt  -  number  of  input  options 
ipredn  -  record  number  of  predecessor  menu 
nentyp  -  type  of  this  menu 
ALGORITHM: 

set  initial  index  in  mentbl  for  read 
while  there  are  any  records  to  read 
read  record 

if  error,  return  NOTOK 
if  last  record,  break 
store  parameter 
return  OK 

ibroutine  rinopt (menrec, if  lag) ; 

//  Menu  Table  declaration,  number  of  input  options 
)nmon  /blkl /mentbl (TBLMAX) ,  numopt; 


//  Menu  record  number  of  current  menu's  predecessor, 
//  menu  record  number  of  current  or  saved  task  menu  , 

#  name  of  active  EG  Task  (if  any), 

#  and  current  menu's  type 

)mnon  /blk9/ipredm,icurtm,iactsk(TNL) ,  mentyp; 


#  record  numbers  of  initial  menus  known 

#  to  the  BG  Controller 
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#    DStatus,    2)5elect,    3)Help,    4)Control   5)Start 
c.rjnon   /blkll/instat ,    insel,    inhelp,    incont,    instrt; 

c  nmon    /blkl 7/lunsg, lunstk, lunenu, luttd ,lutsys , lulog; 

//  array    to   store    input    option   information 
i;eger*2   inopt  (OPTL,IW!AX)  ; 
eiivalence    (mentbld  ) ,  inopt  ( 1,1)); 

iteger*2  pl,p2,p3; 


#  Compute  initial  read  index  in  nentbl 
i(menrec  ==  instrt)     //  if  initial  start  menu 

//  with  control  button  info 
index=l 
lse  index=OPTL*CONlL,J:-l-l;      //  first  entry  after  control  button 

//  first  record  nunber  after  last  one  for  input 
:=  menrec+IKGREC+OPTREC; 

■  index+HRL-1 ;   //  last  index  for  read  into  nentbl 
iec=cienrec+IMGREC;      #  first  record  with  input  options 

read(lumenu'irec,ERR=9999)  (mentbl(ind) , ind=index,k) 
,dex=index+MRL ; 

=IfRL*2;  #  last  entry  in  nentbl 

ec=iaenrec+IMGREC+l;    //  next  record 

read(lunenu'irec,ERR=9999)  (mentbl(ind) ,ind=index,k) 

//  all  information  is  read,  save  menu  parameters 
3=inopt(l,36); 

[=p3/256;  p2=nod(p3,256) ;  call  ascint (pl,p2,p3) ; 
)redn=p3;      #  menu  id  of  predecessor  menu 

3=inopt(2,36); 

l=p3/256;  p2=nod(p3,256)  ;  call  ascint (pi ,p2,p3) ; 

antyp=p3;      //  menu  type 

3=inopt(3,36); 

l=p3/256 ;  P2=mod(p3,256);  call  ascint (pi ,p2,p3) ; 
amopt=p3;      //  nunber  of  input  options 
£(mentyp!=START)       //  not  initial  start  menu 
nunopt=nunopt+CONKAX;   #  add  permanent  buttons 

//  convert  all  ASCII  coded  integer  into  integer 

#  (coordinates, action  codes,  annex  if  necessary) 
t(raenrec  ==  instrt)     #  start  menu 

istart=l 
lse  istarf-COHMAX+l; 

and=nunopt ; 

or(i=istart;  i<=iend;  i=i+l)   #  for  all  inp  options 
{ 
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for(k=7;  k<=ll;  k=k+l)       #  for  all  coord  *   act  codes 

{ 

P3=inopt(k,i);  pl=p3/256;  p2=mod(P3,256) ; 

call  ascint (pi ,p2,p3) ; 

inopt (k,i)=p3; 

} 
if(p3— ACODEM  |  p3==AC0DEK  |p3==AC0DTK)   //  convert  annex 

{ 

p3=inopt (ANNEX, i);    pl=p3/256;   P2=mod(p3,256) ; 

call   ascint (pi ,p2,p3) ; 

inopt (ANNEX, i)-p 3; 

> 
} 


//   return  OK 

J  lag  =  OK; 
i  turn; 


#   if   here,    process    read   error 
!99   if lag  =  NOTOK; 
::turn; 
ud 


it********  *  ************************************************  *********** 

* 

4.3.4  U   P   D    E   N   H 

* 
********************************************************************* 

Initial  release  —  hn/11  Sept  /9 
NAHE: 

updenh 
CALLING  PROGRAl-i: 

cdispl 
FUNCTION: 

Update  the  enhancement  of  certain  permanent 
control  buttons 
INFORMAL  INPUT: 

ipenh   —  specifies  any  permanent  button  being  reversed 

(  index  of  button  input  in  inopt) 
tnentyp  —  typ  of  new  menu 
INFORMAL  OUTPUT: 

ipenh   —  0:  new  menu  is  a  task  menu 

x:  specifies  the  permanent  button  that  is  reversed 
(index  in  inopt) 
ALGORITHM: 

if  there  is  an  enhancement 

if  old  menu-typ  =  new  menu-typ  ,  return 
else  reverse  old  enhancement 
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if  no  new  enhancement  is  to  be  made  ,  return 
I      else  reverse  new  enhancement 
i      return 

ibroutine  updenh 

if   Menu  Table  declaration,  number  of  input  options 
jmmon  /blkl/mentbl(TBLiIAX)  ,  nunopt; 


//  Ilenu  record  number  of  current  menu's  predecessor, 
it   cenu  record  number  of  current  or  saved  task  menu  , 
//  name  of  active  BG  Task  (if  any), 
if   and  current  menu's  type 
onmon  /blk9/ipredm, icurtr, iactsk(TNL) ,  mentyp; 


//  Index  of  permanent  button  (in  inopt) 
//  that  is  displayed  in  reverse  mode 
:ommon  /blkl4/ipenh; 


//  array  containing  input  option  information 
integer*2  inopt (OPTL, INMAX) ; 
equivalence  (mentbl(l),  inopt(l,l)); 

it   if  an  enhancement  exists,  check  if  it  has  to 

it   be  reversed  back 
if(ipenh  !=  0) 
< 

//  menu  type  of  current  menu 
kode  =  inopt(C0DE,ipenh)-8; 

if  (mentyp  --   kode)  return    //  no  menu  typ  change 
else 

call  enhanc (ipenh, REVEND); 
> 

//  if  new  menu  is  task  or  initial  menu,  clear  ipenh 
it   else  enhance  new  button 
if  (mentyp  —  TASK  |  mentyp  ==  START) 

ipenh  =  0 
else 
< 

kode  =  mentyp+8;  if   type  converted  into  action  code 

for(i=l;  i<=*C0NMAX;  i=i+l)    if   search  action  code  to 

if   determine  index  in  inopt 

< 

j=i;  if   save  index 

if (inopt (CODE, i)  ==  kode)  break; 

> 
call  enhanc(j,REV);  if   reverse  button 
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ipenh 

} 
return; 

end 


=   J 


//  save    reversed   button    index 
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f****** ********************************************** ************ 

i 

!  5.   PARAMETER  BLOCK  MANAGER 

i 

!**************************************************************** 

I 

I  Initial  release  —  hn/16  november  79 

i  NAME: 

(       bgpbn(inx) 

»  CALLING  PROGRAM: 

*  bgcmdn 
I  FUNCTION: 

}  update  the  Parameter  Block  (PB) 

}  save  the  PB  on  disc  when  update  is  done 

"f  sends  the  PB  to  the  Foreground  Job 

!  INPUT  PARAMETER: 

inx  -  pointer  to  selected  input  option  in  inopt 
I  INFORMAL  INPUT: 
!       inopt  -  info  about  possible  input 

*  ALGORITHM: 

f  get  annex  from  inopt  to  get  new  parameter 

I  if (done) 

}  save  PB  on  disc 

f  send  PB  to  Foreground  Job 

r  else 

r  store  parameter  in  PB 

} 

subroutine   bgpbm(inx) ; 

:onmon    /blkl/mentbl(TELMAX) ,    numopt; 
Lnteger*2    inopt (OPTL ,INMAX) ; 
equivalence    (mentbl(l) , inopt (1 , 1 ) )  ; 

Minim   modify  PB 

return; 
2nd 
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!  A********** ************* ************ ****************** ************ 

; 

I  6.   LOG  MANAGER 

I 

!****************************************************************** 

I 

'  Initial  release  —  hn/16  november  79 

}   NAME: 

f       bglogm(index) 

J  CALLING  PROGRAM: 

f       bginpn 

}   FUNCTION: 

'       log  the  operator's  input  action  on  a  disc  file 

f   INPUT  PARAMETER: 

't  index  —  index  to  input  in  array  inopt 

'/  INFORMAL  INPUT: 

t  inopt  -  contains  info  about  possible  inputs 

'/  ALGORITHM: 

'/       get  plain  English  command  from  inopt 

It  write    coonand    to   disc    file    'inplog.dat'    on 

'/  logical   unit   LULOG 

It 

subroutine   bglogm(index) ; 

:oranon    /blkl/rnentbl  (TBLMAX)  ,    numopt; 

:omnon    /blkl  7/lumsg,  lur.stk,  lumenu,luttd,lutsys  ,lulog; 
Lnteger*2    inopt (OPTL,INMAX) ; 
equivalence    (mentbl(l) , inopt (1,1)); 

</rite(lulog,  100)    (inopt  (i  ,  index)  , i=2,6) ; 
LOO   format (5a2); 

return; 
end 
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* 

7.     MESSAGE    MANAGER 

* 

Initial  release  —  hn/11  Sept  /9 
NAME: 

bgmsgm(itype) 
CALLING  PROGRAM: 

EXECUTIVE  —  the  very  first  tine  (requested  by  RT-11) 
RT-11     —  bgnsgra  is  to  be  scheduled  using  itimer  call 
FUNCTION : 

Update  the  enhancement  of  the  ACKNOWLEDGE  button 

Process  requests  to  erase/display  messages  (operator  input 

related  or  warning  messages)  initiated  by  the  BG  Controller 
or  any  EG  Task 

f       Erase/display  messages  on  the  TT  Display 

'       save  message  stacks  on  disc/  read  msg  stacks  from  disc 

f   INPUT  PARAMETER: 

If       itype  —  specifies  the  action  requested  by  the 

If  scheduling  program 

'/        NOACTN  -  dummy  call  from  executive 

It  EINPUT  -  Erase  input  related  message 

it  EWARN  -  Erase  warning  message 

//        DIMPUT  -  Display  input  related  message 

it  DWARN   -  Display  warning  message  from  Controller 

//        DWARNT  -  Display  warning  message  from  Task 

it   INFORMAL  INPUT: 

//       msgstk  -  warning  message  stack 

it  msgstr  -  read  pointer  for  stack 

//       msgstw  -  write  pointer  for  stack 

it  inpmsg  -  input  related  message 

//       iwmsg   -  warning  message  initiated  by  a  BG  Task 

//       msgw   -  warning  message  initiated  by  EG  Controller 

//       msgwpr  -  read  pointer  for  msgw 

it  msgcnt  -  counter  for  warning  messages 

//   mgstsw  -  points  to  msg  stack  half  to  write  into 

if   INFORMAL  OUTPUT: 

//       same  as  informal  input 

it  NOTE: 

it  This  is  a  completion  routine  and  will  not  be 

it  interrupted  by  any  other  BG  program. 

if  ALGORITHM: 

it  if  NOACTN  ,  return 

it  if  EINPUT 

//         erase  message  field,  return 

//       if  EWARN 

//         display  any  waiting  warning  message 

//         update  ACKNOWLEDGE  enhancement 

it  return 

//       if  DINPUT 

//         display  message,  return 

it  if  DWARN  or  DUARNT 
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;  display   warning   message   or   save   it    on   stack 

i  update   ACKNOWLEDGE    enhancement 

return 

WHMMM  it  i'nt  it  it  it  it  it  iHhHHHHHh'fMfiHHHHhUHmiHHmiHHHHHHHHHhHHHHHHHHHHHHItt 
ibroutine   bgmsgn(itype) ; 
)ranon   /blklO/killfl.inflag; 

it  no  action   on   dummy    call    from  EXECUTIVE 
f(itype  ==  NOACTN)    return; 

ir   accept    no    input  when   displaying 
nflag-NOACPT; 

it   Erase    input    related   message 
f(itype  ==  EINPUT) 
{ 

call  einnsg; 
> 

if  Erase  warning   message 
ilse  if(itype  ==  EU'ARN) 
{ 

call   ewmsg; 
} 

it   Display  input  related  message 
>lse  if (itype  ~  DINPUT) 
{ 

call  einnsg; 
call  dinnsg; 
} 

it   Display  warning  message 

2lse  if (itype  ==  DWARN  |  itype  ==  DWARNT) 

{ 

call   dwnsg(itype) ; 

i 

/ 

//  accept    input 

Lnflag=ACCEPT; 

return; 
2nd 

;.'********************************************************************* 

(/  * 

?  7.1  EINMSG 

P  * 

?********************************************************************* 

It 

'/  Initial   release  —  hn/12    Sept    79 
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NAME : 

einmsg 
CALL  INC  PROGRAM: 

bgmsgm 
FUNCTION: 

Erase  any  displayed  operator  input  related 

message  on  the  display 
ALGORITHM: 

position  display  cursor 

clear  line  (ESC  K) 

//  if  if  #  if  //  #  #  //  //  if  //  //  #  #  //  #  //  #  //  #  //  #  #  #  #  ?/  //  //  //  #  #  #  #  #  #  #  f  //  #  #  #  //  #  #  f  if  if  if  if  if  if  if  if  if  if  if  if  if  If  if  if  if  if  if  if  if  if  if 
ubroutine    einmsg; 

onmon  /blkl  7/lumsg,  lumstk,  lum.enu,  lut  td,  lutsys  ,  lulog; 

if   command  string  to  erase  input  related  nessage 
ogical*l  erasei(12); 

if   EEL  ESC  &  a  2  1  r  2  1  C  ESC  K 
lata  erasei/0 7, 2 7, 38, 9 7, 50, 49, 11 4, 50, 49, 6 7, 2 7, 7 5/; 

.hp=iwritw(6,erasei,0,luttd) ; 

return; 

and 


;/***************  *******************************************  *********** 

'f  * 

f  7.2      E  W  M  S  C 

I  * 

'I  ****  ********************************************  ********************* 

f 

'I   Initial  release  —  hn/12  Sept  79 

1*  NAME: 

'f  ewnsg 

'/  CALLING  PROGRAM: 

'f  bgmsgm 

'/  FUNCTION: 

'f  Erase  the  display  of  a  warning  message 

'/       Display  any  waiting  warning  message 

'/       Update  the  enhancement  of  ACKNOWLEDGE  button 

'/  INFORMAL  INPUT: 

'f  msgstk  -  message  stack 

'f  msgstr  -  read  pointer  for  stack 

f  msgstw  -  write  pointer  for  stack 

ff  msgcnt  -  counter  for  warning  messages 

'/       mgstsw  -  stack  switch,  indicating  into  which  stack  half 

'I  a  new  message  has  to  be  stored 

'f  inopt   -  operator  input  option  information 

*  INFORMAL  OUTPUT: 
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sar.e  as  informal  input 
ALGORITHM: 

if  no  message  on  stack 
erase  message  display 
return 
while  there  is  message  text  ,  do 

if  read  pointer  in  upper  half  of  stack 
get  next  characters 
if  ENDOFM,  break  loop 
else 

if  no  stack  saved  on  disc 

move  lower  half  to  upper  half  of  stack 
else 

read  stack  from  disc  into  upper  half 
I  update  pointer  to  stacks  on  disc 

) 

t  update   message    counter 

'/  if    no   messages    on   stack 

'/  stop   blinking  ACKNOWLEDGE   button 

'/  display  message 

If  return 

f 
t  it  #  //  //  //  //  it  it  *  it  it  it  it  it  it  if  it  it  it  it  //  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

subroutine  ewmsg 

it   Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl (TBLMAX) ,  numopt; 


it   Message  stack,  stack  read  and  write  pointer 
logical*l  msgstk(MGSTLl); 
common  /blkS/msgstk,  msgstr,  msgstw; 


it   number  of  warning  messages  to  be  displayed 
it   index  to  warning  message  stack  half  to  write  into 
it   first  message  stack  record  number  on  disc  file 
it   last  message  stack  record  number  on  disc  file 
common  /blkl2/msgcnt ,  mgstsw,  mfrec,  mlrec; 

common  /blkl 7/lumsg, lumstk, lumenu, luttd, lutsys , lulog; 

//  temporary  storage  of  message  text 
logical*l  mbuff(MSGL); 

it   array  to  structure  the  message  stack 

it   into  upper  and  lower  half 
logical*l  mstk(MGSTL2,2); 
equivalence  (msgstk(l),  mstk(l,l)); 

it   array  containing  input  option  information 
integer*2  inopt (OPTL.INMAX) ; 
equivalence  (mentbl(l) ,inopt(l,l) ) ; 
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//  command  string  to  erase  warning  message 
>gical*l  erasew(12); 
ita  erasew/C 7, 2  7, 38, 9 7, 50, 50, 114, 50, 49, 6 7, 2 7, 75/; 


If   if  only  1  warning  message  exists,  erase  it 
'(msgcnt  <=  1) 
{ 

ihp=iwritw(6,erasew,0,luttd) ; 
rasgcnt  =  0; 
return; 
> 

//  copy  a  warning  message  from  tnsg  stack  into  msg  buffer 
//  if  needed  msg  stack  is  saved  on  disc,  read  it  and 
//  continue  to  copy. 

buffx=2;   mbuff  (l)-36;    If    '$' 

hile(mbuffx  <=  MSGL) 

{ 

If   if    msg   on    stack    in   memory 
if(msgstr   <=  KGSTL2) 

{ 

mbuff (mbuff x)    =   msgs tk (msgstr) ; 

msgstr  =   msgstr+1; 

If   stop    if    message   complete 

if (mbuff (mbuff x)  ==  ENDCFM)   break; 

mbuf f x=mbuf f x+1 ; 

> 


If   warning  message  either  in  lower  half  of  message  stack 
//  or  there  is  a  msg-stack  saved  on  disc 
else 
{ 

If   if  no  stack  on  disc 

//  copy  lower  stack  half  into  upper  half 
if(mfrec  ==  0) 
{ 
for(i-l;  i<=t!GSTL2;   i-i+1) 

mstk(i,l)  =  mstk(i,2); 
mgstsw  =  1; 

> 

If   if  stack  on  disc,  read  it  into 
//  upper  stack  half 
else 

{ 

read (lums  g'mf rec , ERR=9999 )    (ms  tk ( i , 1 ) , i=l , 60 ) 

if(mfrec   ==   tnlrec) 

{ 

nfrec  =  0; 
mlrec  ■  0; 
> 
else 

mfrec  =  mfrec+1; 
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> 

#  reset  read  pointer  in  r.sg  stack 
msgstr  =  1; 
> 

> 

//  update  counter  for  warning  messages 
//  if  no  nore  messages  waiting,  stop  blinking 
//  of  ACKNOWLEDGE  button 
sgcnt  ■  msgcnt-1; 
f(msgcnt  <  2) 
{ 

msgstr  =  1 
msgstw  =  1 
mgstsw  =  1 

for(i=l;  K-COHMAX;  i-i+1) 
{ 

if (inopt(CODE,i)  ==  ACCDAC) 
< 

call  enhanc(i,BLKEND); 
break; 
> 
> 

} 

//  write  message,  clear  rest  of  line 
hp=iwritw(6,erasew,0,luttd) ; 
buff  (nbuffx)=0;  if   ASCII  NUL 

words=mbuf f x/2 ;  //  number  of  words 

hp=iwritw(nv7ords,mbuf  f  ,0,luttd) ; 
eturn; 

//  if  read  error 
999   continue 
eturn; 
nd 


*************************************** * ***************************** 

* 

7.3     DINHSG 

* 
********************************************************************* 

Initial  release  —  hn/26  Sept  79 
NAME: 

dinmsg 
CALLING  PROGRAM: 

bgmsgm 
FUNCTION : 

display  new  input  related  message 

NOTE : 


129 


i  the  first  character  in  a  message 

i  will  not  be  displayed 

;  INFORMAL  INPUT: 

i  inprasg  -  input  related  message 

inopt   -  info  about  operator  input  options 
i ALGORITHM: 
i      position  cursor 

display  new  message 

'wmtmmmmwmmmmmmmmmmmmmmm* 

ibroutine  dinnsg; 

#  Menu  Table  declaration,  number  of  input  options 
Dnmon  /blkl/nentbl(TELMAX) ,  numopt; 

>gical*l  inpmsg(MSGL) ,  iwmsg(MSGL) ; 

Dmmon  /blk5/inpmsg, iwmsg; 

Dtamon  /blkl 7/lumsg, lumstk, lunenu,luttd,lutsys,lulog; 

//  array  containing  input  option  info 
nteger*2  inopt (OPTL.INMAX) ; 
quivalence  (mentbl(l),  inopt(l,l)); 
ogical*l  swtext(2); 
ata  swtext/36,15/; 


//  write  the  message,  any  old  one  has  already  been 
it   erased  by  einr.sg,  the  cursor  is  positioned 

hp=iwritw(l,swtext,0,luttd) ; 

np=iwritw(2  7,inprasg,0,luttd) ; 

sturn; 

nd 


* 

7.4     D  W  M  S  G 
******************************************************************* 

Initial  release  —  hn/26  Sept  79 
NAME : 

dwnsg(itype) 
CALLING  PROGRAM: 

bgmsgm 
FUNCTION: 
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■!      display  a  warning  message  or 

ji        store  it  on  stack 

I  update  enhancement  of  ACKNOWLEDGE  button 

'/INPUT  PARA1  JETER: 

'/      itype  -  specifies  the  nessage  originator 

|         DWARN   -  msg  fron  BG  Controller 

|         DWARNT  -  msg  froir.  BG  Task 

(INFORMAL  INPUT: 

(      msgstk  -  nessage  stack 

nsgstr  -  read  pointer  for  stack 
msgstw  -  write  pointer  for  stack 
i      rasgcnt  -  counter  for  warning  messages 

mgstsw  -  stack  switch,  indicates  into  which  half  of 

the  stack  (upper, lower )  a  new  nessage  has  to 
be  stored 
msgw   -  warning  message  fron  BG  Controller 
msgwpr  -  read  pointer  for  msgw 
iwrasg   -  warning  nessage  from  BG  Task 
inopt   -  input  option  information 
INFORMAL  OUTPUT: 

sane  as  informal  input 
ALGORITHM: 

Store  nessage  from  either  controller  or  task  into  buffer 
If  no  nessage  being  displayed 
display  new  nessage 
reset  stack  pointer 
else 

copy  nesage  fron  buffer  to  stack 
if  stack  overflow 

write  stack  onto  disc 
update  pointers  and  flags 
increnent  message  counter 

if  two  messages  present,  start  blinking  of  ACKUO'wTEDCE 
return 

mMmmmmmmmmmmmmmmtmmMmMwm 

ubroutine  dwmsg(itype) ; 

#  Menu  Table  declaration,  number  of  input  options 
ommon  /blkl/mentbl(TBLMAX) ,  nuraopt; 


//  Storage  for  operator  input  related  messages 

#  and  warning  messages  from  tasks 
ogical*l  inpmsg(MSGL),  iwmsg(MSGL); 

onmon  /blk5/inpmsg,  iwmsg; 

#  Storage  for 

#  warning  messages  from  BG  Controller, 
//  read  and  write  pointer  for  msgw 

ogical*l  msgw(MSCWL); 

onmon  /bllc6/msgw, msgwpr, msgwpw; 
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//  Message  stack,  stack  read  and  write  pointer 
tjical*l  nsgstk(MGSTLl); 
(unon  /blk8/msgstk,  msgstr,  msgstw; 


//  number  of  warning  messages  to  be  displayed 
//  index  to  warning  message  stack  half  to  write  into 
#  first  message  stack  record  number  on  disc  file 
if   last  message  stack  record  number  on  disc  file 
.-jnon  /blkl2/msgcnt,  mgstsw,  mfrec,  mlrec; 

nmon  /blkl 7/lumsg, lumstk, lumenu, luttd, lutsys, lulog; 

if   temporary  storage  for  messages 
gical*l  mbuff(HSGL); 

if   array  to  structure  the  message  stack 

if   into  upper  and  lower  half 
gical*l  mstk(MGSTL2,2); 
uivalence  (msgstk(l),  mstk(l,l)); 

//  array  containing  input  option  information 
teger*2  inopt  (OPTL,INIiAX) ; 
uivalence  (mentbl(l),  inopt(l,l)); 

if   array  containing  command  string  to  position 

//  cursor  and  clear  line 
gical*l  displw(12); 
ta  displw/0 7,2 7, 38, 97, 50, 50, 114, 50, 49, 6 7, 2 7, 75/; 

if   message  generated  by  3G  Controller 
(itvpe  ==  DWARN) 
{  ' 

mbuff (1)=36;   #  '$' 
mbuff (2)=15;    #  Control  0 
for(i=3;  i<=HSGL;  i=i+l) 

< 

mbuff (i)    =   msgw(msgwpr) ; 
msgwpr  =   msgwpr+1; 
if(msgwpr   >  IlSGVvL)      msgwpr=l; 
max  =   i;  #   save   index 

if (mbuff (i)    ==  ENDOFM)    break; 
> 
} 

//  message   generated  by   SG   Task 
Lse 
{ 

mbuff (1)=36;      if    '$' 
nbuff(2)=15;      if  Control  0 
for(i=3;    i<=MSGL;    i=i+l) 

{ 
max  =  i;  #  save   index 


132 


mbuff(i)  =  iwnsg(i); 
if (mbuff (i)  —  ENDOFM)  break; 
> 

} 

if   display  new  message  if  it  is  the  first  one 
(msgcnt  ==  0) 

{ 

ihp=iwritw(6,displw,0,luttd) ; 

nwords=max/2; 

mbuff (max)-O;       //  ASCII  NUL 

ihp=iwritw(nwords,mbuf f ,0,luttd) ; 

msgstr  =  1; 

msgstw  =  1; 

mgstsw  =  1; 

> 

if   copy  message  to  stack  (upper  or  lower  half) 
se 
{ 

for (mbuff x=l ;  mbuff x<=max;  mbuf f x=mbuf f x+1) 
< 

if   no  overflow  of  message  half 
if (msgstw  <=  MGSTL2) 
{ 

mstk(msgstw, mgstsw)  =  mbuff (mbuff x) ; 
msgstw  ■  msgstw+1; 
> 
else 

< 

//  if  upper  switch  to  lower  half  of  stack 
if (mgstsw  ==  1) 

mgstsw  =  2 
else 

if  upper   and    lower  half   overflown 
//  write    lower   half    onto   disc 
< 

if(mfrec   ==   0) 
{ 

mfrec  =  1; 
mlrec  =  1; 
> 
else 

mlrec  =  r.lrec+1; 
write(lumsg'mlrec,ERR=9999)  (mstk(i,2) ,i=l ,60) 

} 
msgstw  =  2; 

mstk(l , mgstsw )=mbuff (mbuff x) ; 
> 
> 
> 

if   update  message  counter  and  enhancement 
gent  ■  msgcnt+1 ; 
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(msgcnt   ==   2) 

{ 

for(i=l;    K-CONHAX;    i=i+l) 

< 

if (inopt(CODE,i)    ==  ACODAC) 

< 

call   enhanc(i,BLKEEG) ; 
break; 
> 
> 
} 

eturn; 

//  write   error 
999   continue 
eturn; 
nd 
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MENU  EDITOR  PROGRAM 


i  * 

|  II  E  N  U  E  D 

;************** A** ** ************************* ** ****** **************** 
I 

, Initial  release  —  hn/1  Oct  79 
i  NAME : 

nenued 
FUNCTION : 

create  new  ir.enus 

update  existing  menus 

delete  menus 

print  menu-id's  of  all  menus  stored  on  the  menu  file 
CALLINC  PROCRAM: 

RT-11 
INPUT: 

text  file  with  all  needed  information  having  the  format 

described  below. 
OUTPUT: 

-  text  file   or 

-  new  menu  on  disc   or 

-  file  with  all  menu  id's 
NOTES : 

This  is  an  off-line  program. 

It  interprets  a  standard  input  in  certain  format. 

Each  @  (end  of  text),  or  ','  (end  of  integer),  or 

|  (end  of  line)  may  be  followed  by  comments. 

Input  may  be  files  or  any  input  device.  Each  line 

of  input  has  to  be  in  the  following  formats 

(  line  number  ) : 

(1)   :  function 

2:  create  -  create  a  new  menu 

3:  update  -  update  an  existing  menu 

1:  delete  -  delete  an  existing  file 

8:  initm  -  create  initial  start  menu 

The  following  formats  will  depend  on  the  functions. 

for  all  input  files: 

(1)  :  function  code 

for  delete,  create,  update 

(2)  :  menu-id 

for  create, update 

(3)  :  predecessor  menu-id 

(4)  :  menu-type 

(5)  :  menu  title 
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;(6)   :  nunber  of  question/text  blocks 

for  each  question/text  block: 
:  start-block  code   (126) 
:  number  of  responses 
:  location  of  buttons 
:  size  of  buttons 
:  text 

for  each  response: 
:  start-response  code   (127) 
:  label  (1  characters) 

:  plain-English  command  for  logging  (10  characters) 
:  action  code 
:  annex 

mil#1HHhHHM4HHW1HHhi1HHHHHHHHHHMHHHHHHHHt#lH?##M1HHtmiHHHHHHHHHHHHHH!# 


LUR 

9 

LUW 

6 

LUMR 

7 

LUMW 

8 

LUTTD 

4 

efine  NDREC   20 
efine  NIREC   4 
cfine   KOREC    2 


if   logical  unit  for  read 

if   logical  unit  for  write 

#  logical  unit  for  menu  file  read 

//  logical  unit  for  menu  file  write 

if   logical  unit   display 

if   number  of  directory  records 

//  max  4  records  for  image 

if   max  2  records  for  input  options 


if   function  codes  from  input  file 


PREDM    0 


DELETE 
CREATE 
UPDATE 

SUC  CM 
INITM 


//  find  a  menu  id  in  directory 

if    (  id  in  ipredm) 

//  delete  menu  id  in  directory 

if   insert  a  new  menu  id  in  directory 

if   find  a  menu  id  in  directory 

if    (id  in  menuid) 

if   find  menuid  of  successor  menu 

//  create  the  initial  menu 


if   code  for  button  locations 

efine  LOCA  1       if   button  row  below  the  text 

efine  LOCB  2       if   button  row  beside  text 

efine  LOCC  3       if   button  collunn  beside  text 


if   symbolic  names  for  fixed  margins 

LEFTM  12  if   left  margin  of  menu  field 

LMARG  20  //  lower  margin  of  menu  field 

//  right  margins  for  button  rows/collumns 

efine  RMARGA  75  if   button  row  below  text 

efine  RMARGB  75  if   button  row  beside  text 

efine   R1IARGC  75  if   button  collumn  beside  text 
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fine 

DELTA 

2 

fine 

IMAGEL 

2432 

fine 

INOPTL 

15 

fine 

INMAX 

37 

fine 

IBUFFL 

80 

fine 

ENDCFI 

8316 

fine 

ENDOFR 

32332 

fine 

TEXT 

15 

fine 

BUTT 

14 

fine 

NOCH 

0 

fine 

SBLOCK 

126 

fine 

SRESP 

127 

9   free    rows/coll    between   buttons 

it   image   storage    length    (bytes) 

it  word    length    for    each    input    option 

it   max  number   of    input    options 

it    input    buffer    length 

it  code   for   end-of-input 

it   code   for   end-of-record 

it   code   for    text   mode 

//  code   for    line   mode 

//  no    change   of   mode 

it   code    for    start-text/question-block 

it   code    for   start-response-block 


//  symbolic   input    parameter 

fine     DONE  1  it  done 

fine     N0D0NE  0  it  not   yet    done 

//  ASCII  character 

fine     ESC  2  7  it  ESC 

fine     C0NTR0  15  //  CONTROL   0 

fine      CONTRN  14  it   CONTROL   N 


it  input   buffer 

iteger*2  ibuff  (IBUFFL) ; 

it  storage   for   menu-id 

iteger*2  menuid(lO); 

//  storage   for   menu-id    to    lookup    in   directory 

iteger*2  ipredm(lO); 

it  storage   for    image 

iteger*2  image ( II1AGEL ) ; 

//  storage   for   input    options 

iteger*2  inopt (INOPTL, INI iAX)  ; 


it 
iteger*2 
iteger*2 


pointer 

imagep 

inoptp 


//  next  free  entry  in  image 
it   next  free  entry  in  inopt 


it   next  line  to  write  on  display 
iteger*2  lincnt; 


it 
nteger*2 


display   mode 
mode; 


it 
nteger*2 

nteger*2 


function  code 
if unct ; 


idold(lO);     it   menuid  to  find  in  directory 
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;eger*2  idnew(lO);     //  menuid  to  store  in  directory 

//  menu  parameter 

teger*2  nblock;       #  number  of  text/question  blocks 

Ceger*2  nbutt;         if   number  of  buttons  for  a  block 

teger*2  iloc;         //  location  of  buttons  in  a  block 

teger*2  isize;        if   size  of  buttons 

teger*2  mentyp;       //  menu  type 

teger*2  ipredr;       if   record  number  of  predecessor  menu 

teger*2  ispace;       //  space  lines  between  text  blocks 

teger*2  irec,param, ichar; 

teger*2  mr(21 ,50)  ,ptr;        //  temporary  storage  for  menuid, rec  if 

teger*2  rowcur;       //  row  the  cursor  is  in 

teger*2  highr;        if   highest  record  number  created 

teger*2  ibseq(7);      //  sequence  of  drawing  permanent  buttons 

//  entries  are  index  to  inopt 

teger  insave,irsave,iwsave;    //  file  descriptor  from  open 

nnon  /b Ik 1 /image , imagep , inop t , inop tp ; 

mmon  /blk2/lincnt ; 

nmon  /blk3/mode; 

nnon  /blk4/menuid,ipredm; 

nmon  /blk5/ibuff; 

nmon  /blk6/nblock; 

mmon  /blk7/nbutt , iloc, isize ; 

cunon  /blk8/nentyp,  ipredr; 

mmon  /blk9/ispace ; 

nmon  /blklO/rcwcur ; 

nnon  /blkll/irsave, iwsave; 

mmon  /blkl2/idold, idnew; 

nmon  /blkl3/mr ,ptr ; 

nmon  /blklA/highr ; 

nmon  /blkl5/if unct ; 

nnon  /blkl6/ibseq; 

bseq(l)=l ; 
bseq(2)=2; 
bseq (3)-4; 
bseq(4)=7; 
,bseq(5)=5; 
bseq(6)=6; 
bseq(7)=3; 


if   specify  logical  unit  numbers  and 

if   open  menufiles  for  read/write 

if   the  old  menu  file  'menufile'  is  read  and 

//  it  is  written  onto  a  temporary  menu  file  'menuout'. 

//  after  all  is  done,  'menuout'  is  copied  to  'menufile' 

til  setfiKLUKR,  'menufile  '); 

ill  setfil(LUMW,  'menuout  '); 

ill  setfil(LUR,'infile  '); 

:save=LUhR; 
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[fcave-LUMW; 

//   preset    inopt , image, menuid, ipredm,ichar,mr 
#  imagep , inoptp , lincnt , ispace 
:r (i  =  l ;  K-INMAX ;  i=i+l ) 


or(j-l;j<-INOPTL;j-j  +  l) 
inopt(j,i)=12336;  f    'O'.'O' 


:  r(i=l ;  K-IMAGEL ;  i=i+l ) 
imaged)  =8240;  //  SP.'O' 

r(i-l;i<»10;i»i+l) 


'0' 


ienuid(i)-8240;  //  SP.'O 

predn(i)=8240;  #  SP.'O 


:har=3256;  #  SP.'@' 

:r-l; 

>r(i»l;i<-50;i-i+l) 

{ 
for(j-l;j<-21;j=j+l) 

mr(j,i)=0; 

} 

Lncnt=0; 
ioptp=l ; 
nagep=l ; 
space=0; 
owcur=0; 


//  read   function   code 
ead(LUR,1000)    ifunct; 
000  format (13); 

//   create    initial   menu 
f (ifunct   ==   INITM) 
call    initm 

lse 

{ 

#  delete, create, update 

//  save  menu- id 
read (LUR, 100)  ibuff; 
100  format (80al); 

1-1; 

while(i<=10   &    ibuff (i) !=ichar) 
{   menuld(i)-ibuff(i);    i-i+l;    > 

#  delete 
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if(ifunct   —  DELETE) 
call    delete 


else 

{ 


//  create,  update 
if (ifunct  —  CREATE  |  ifunct  —  UPDATE) 
{ 
read (LUR, 100)  ibuff; 

i-i; 

while(i<=10  &  Ibuff (i) i-ichar) 
{  ipredn(i)-ibuff (i);  i-1+1;} 

param=PREDM; 

call  setmen(param, irec) ; 


ipredr=irec; 

#   read   nenu   type 

read(LUR,1000)    nentyp; 

call  setmen(if unct,irec) ; 

call  update(irec) ; 

} 


> 


} 


//   close   all    files 
jwind  LUMR; 
;wind  LUMW; 
;wind  LUR; 


id 


t****************** ******************* A A  A A****** A  A ************** ***** 

S   E   T   M  E   N 

t***************************************************************AAAAA 

Initial   release   —  hn/2   Oct    79 
NAME : 

setmen(if lag, irec) 
CALLING    PRCGRAM: 

menued 
FUNCTION: 

prepare   store   for   new   and   old   nenuid 

and   set   menuid    into  mr 
INPUT   PARAMETER: 
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H  if  lag  ~ 

(/  SUCCM  -  find  successor  menu  in  directory 

I  CREATE  -  insert  a  menu  id  in  directory 

/,  UPDATE  -  find  a  menu  id  in  directory 

ii  PR.EDU  -  find  predecessor  menu  id  in  directory 

jOUTPUT  PARAMETER: 

ii  irec  —  index  of  menuid  in  nr 

i! INFORMAL  INPUT: 

/,      menuid  -  menu  id  to  create  or  update 

l      ipredn  -  menu  id  to  find  in  directory 

(ALGORITHM: 

l      reset  temporary  id  stores 

l      copy  id's 

save  old  and  new  menuid  in  nr,  return  index 


i  //  #  it  #  it  //  //  it  it  it  it  it  ii  it  it  it  it  it  it  it  ii  it  ii  it  it  it  it  it  ii  it  it  it  it  it  it  it  it  it  ii  it  it  it  it  it  it  it  ii  it  it  //  //  it  ii  ii  it  it  it  it  it  it  it  it  it  it  ?/  ii  it  it 
ibroutine   setmen(if lag, irec) ; 


iteger*2   iflag.irec; 
iteger*2   pl,p2; 
mmon    /blk4/menuid, ipredm; 
iteger*2   menuid(lO); 
iteger*2    ipredm(lO); 


it   store    for   old   and   new  menuid 
onmon    /blk,12/idold,idnew; 
ateger*2   idold(lO); 
nteger*2    idnew(lO); 


//   preset    temporary   storage    for    id's 
or(i=l;    i<=10;    i=i+l) 
{ 

idold(i)=8240;  it  SP.'O' 

idnew(i)=8240; 
} 

it   store  old  and  new  menuid's 
f(iflag==SUCCM  |  iflag— PREDM) 

{ 
for(i=l;i<*10;i=i+l) 

{ 

idold(i)=ipredm(i) ; 
idnew(i)=ipredm(i) ; 
> 
} 
lse 
{ 

for(i=l;i<=10;i=i+l) 
{ 
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idold(i)=menuid(i) ; 
idnew(i)=menuid(i) ; 
} 


//  save  nenuid  in  nr 
;.l  savenr(irec) ; 

i:urn; 
k 


V************* ******************* **** x** ********* *** A* ************ A A 

C  P  F  I  L  E 

*********************************** AAAAAA AAA AAAAAAAAAAAAAAAAAAAAAAAA 

Initial   release   —  hn/6   novenber    79 
NAME : 

cpf ile 
FUNCTION : 

copy    the    file   menuout    (up-to-date)    to   r.enufile 

#  #  #  #  //  //  //  #  //  //  #  //  //  #  //  #  #  //  #  #  //  //  #  #  //  //  #  #  #  #  //  //  //  //  #  //  #  #  #  #  //  //  it  1HHI  if  #  //  #  #  //  #  #  #  #  //  f /  #  #  #  //  #  #  #  #  # 

broutine    cpfile; 

teger*2    rbuff(544); 

11  cofbck;     //  close  and  open  files 

il   set  exit  for  END-OF-FILE  condition 
(ierror(104)!=0)  goto  7777; 
ile(l>0)      //  do  until  done 
{ 

read  (LUMR,  100)  (rbuf f (i) ,i=l ,544) ; 
write (LUIlV;,  100)  (rbuf  f  (i)  ,i=l ,  542) ; 
100  fornat(544al); 
} 

77   return; 
d 

***************AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA*AAAAA************* 

COFFWD 

AAAAA*********************AAAAAAAAAAAA****************************** 

Initial   release  —  hn/31    October   79 
NAME: 

cof fwd 


142 


//FUNCTION : 

//      close  menufile  and  nenuout 

//      open  these  files 

ii  read  from  menufile,  write  to  nenuout 

// 

A ALGORITHM: 

t  rewind  files 

/,      connect  logical  unit  number  and  file 

i 

itmmMmmmmwmMmmmmmmmmmmmm* 

sbroutine    coffwd; 

(inmon    /blkll/irsave,  iwsave; 
:iteger   irsave,  iwsave; 

;wind  LUIiR; 
iwind  LUMW; 
:save=LUKR ;    iwsave-LUNW ; 


ill   setfil(LUNR, 'menufile    '); 
all   setfil(LUliU, 'nenuout    '); 


2turn; 
ad 


********************************************************************* 

C   0   F   B   C   K 
********************************************************************* 

Initial  release  —  hn/31  October  79 
NAME: 

cof bck 
FUNCTION: 

close  menufile  &   cenuout 

open  these  files,  read  fron  nenuout,  write  to  menufile 
ALGORITHM: 

rewind  files 

connect  logical  unit  and  filenames 

iibroutine  cofbck; 

omnon  /blkl 1 /irsave, iwsave; 
nteger  irsave, iwsave; 

ewind  LUMR; 
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rvind  LUKW; 

i3ave=LUliR;    iwsave=LUMW; 


ell   setf  iKLLT.R, 'menuout    '); 
ell  setfil(LUHW,'nenufile    '); 


rturn; 
ad 


|  ******************************************************************** 

I 

!  I  N  I  T  M 

I 

:******************************************************************** 

Initial  release  —  hn/12  oct  79 
NAME: 

initm 
FUNCTION: 

generate  menu  records  for  the  initial  menu  with  permanent 

buttons  and  store  then  behind  the  directory  records. 
CALLING  PROGRAM: 

menued 

/  //  #  //  //  #  #  //  #  #  #  #  #  //  #  #  #  //  #  //  #  #  #  #  #  f/  #  //  #  //  //  #  //  #  //  #  //  #  *  #  #  #  //  *  #  //  #  #  it  //  //  #  #  #  //  #  #  #  //  //  #  //  //  #  #  #  #  #  # 

ibroutine    initm; 

)nnon   /blkl /image, imagep  ,  inopt  ,inoptp  ; 

)mmon    /blk4/menuid,ipredrc; 

)mnon    /blklA/highr ; 

3mmon    /blkl6/ibseq ; 

iteger*2   highr;  #   first    record   number   of    last   menu 

iteger*2    ibseq(7) ; 

iteger*2    iroage(IMAGEL) , imagep, inopt (INOPTL,INMAX) ,inoptp ; 

iteger*2  menuid(lO),    ipredm(lO); 

iteger*2   pi ,p2,p3,p4,ir,ic,irec,label(4, 7) ; 
iteger*2   11(6) , 12(6) ,13(6) ,14(6) ,15(6) ,16(6) ,17(6) ; 
iteger*2   rbuff(544); 
luivalence    (rbuff(l),    inopt(l,l)); 


ata  label(l,l)/80/ 
ata  label(2,l)/82/ 
ata  label(3,l)/32/ 
ata   label(4,l)/49/ 


//  P 

#  R 

§  SP 

//  1 


ata   label(l,2)/80/;    //   P 
ata   label(2,2)/82/;    #  R 
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La  label(3,2)/32/ 
ta   label(4,2)/50/ 

ta  label(l,3)/65/ 

ta  label(2,3)/67/ 

ta  label(3,3)//5/ 

ta  label(4,3)/32/ 

ta  label(l,4)/33/ 
ta  label(2,4)/34/ 
ta  label(3,4)/65/ 
ta  label(4,4)/84/ 

ta  label(l,5)/83/ 
ta  label(2,5)/69/ 
ita  label(3,5)/76/ 
ita   label(4,5)/32/ 

tta  label(l,6)/72/ 

ita  label(2,6)/69/ 

ita  label(3,6)/76/ 

ita  label(4,6)/80/ 

ita  label(l,7)/6  7/ 
ita  label(2,7)/84/ 
ata  label(3,7)/82/ 
ita   label(4,7)/76/ 


it  SP 
it   2 

it   A 

it  c 

it    K 
it   SP 


# 

S 

# 

T 

# 

A 

// 

T 

// 

S 

E 

it 

L 

# 

SP 

7/ 

H 

E 

# 

L 

// 

P 

.'i 
it 

C 

it 

T 

it 

R 

11 

L 

ata  ll(l)/'p  '/ 
ata  11(2)/'PR'/ 
ata  11(3)/'IN'/ 
ata  11(4)/'T  '/ 
ata  11(5)/'CR'/ 
ata  11(6)/'T1'/ 

ata  12(l)/'r    '/ 

ata  12(2)/'PR'/ 

ata  12(3)/'IN'/ 

ata  12(4)/'T    '/ 

ata  12(5)/'CR'/ 

ata  12(6)/'T2'/ 

ata  13(l)/'a  '/ 
ata  13(2)/'AC'/ 
ata  13(3) /'KH'/ 
lata  13(4)/'OW'/ 
lata  13(5)/'LE'/ 
lata   13(6)/'DG'/ 

lata  14(l)/'s  '/ 
lata  14(2)/'ST'/ 
lata  14(3)/'AT'/ 
iata  14(4)/'US'/ 
lata   14(5)/'      '/ 


145 


j.:a  14(6)/'   '/ 

d:a  15(l)/'e  '/ 
dta  15(2)/'SE'/ 
dta  15(3)/'LE'/ 
dta  15(4)/'CT'/ 
dta  15(5)/'  '/ 
dta  15(6)/'   '/ 

dta  16(l)/'h  '/ 
dta  16(2)/'HE'/ 
eta  16(3)/'LP'/ 
eta  16(4)/'  '/ 
eta  16(5)/'  '/ 
eta  16(6)/'   '/ 

eta  17(l)/'c  '/ 
eta  17(2)/'CO'/ 
at*  17(3)/'NT'/ 
uta  17(4)/'RO'/ 
ita  l/(5)/'L  '/ 
tta  17(6)/'   '/ 


//  prepare  'nenufile'  by  writing  21  records 
it   of  542  bytes  to  it  (Unix  will  add  CR/LF 
//  thus  create  544  byte  records) 
//  These  records  cover  the  r.enu  file  directory 
it   The  record  will  be  filled  with  ASCII  '0' 

//  write  21  records 
Dr(i=l;i<=21;i=i+1) 
{ 

write (LUMR, 7000)  (rbuf f (k) ,k=l ,542) ; 
7000  format (542al); 
} 

it   close  menufile  and  open  again 
swind  LUMR; 
all  setf  il(LU21R,  'ir.enufile  '); 


it   set  raenuid  to 
snuid(l)=8307 
anuid(2)=8308 
enuid(3)=8289; 
enuid(4)=8306: 
enuid(5)=8308; 
enuid(6)=8301 
enuid(7)=8293; 
enuid(8)=8302 
enuid(9)=8309; 
enuid(10)=8224; 


startmenu 
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//  place  menu  id  and  record  number  into  directory 
1  CREATE; 
Jl  setnen(pl,irec) ; 

//  set  entries  for  other  initial  controller  menus 
//  into  the  menu  directory 
#  STATUS,  SELECT,  HELP,  CONTROL 
:i(i-l;i<-10;i-i+l) 
nenuid(i)=8224;       if   SP 

//  'statusO' 
niuid(l)-8307 
imuid(2)=8308; 
Muid(3)=£289: 
nnuid(A)=8308 
muid(5)=8309 
nnuid(6)=830/: 
rnuid(7)=8240: 
ell  setraen(pl.irec) ; 

//  'selectO' 
rnuid(l)=830/ 
i!nuid(2)=8293; 
imuid(3)=8300: 
>nuid(4)=8293; 
muid(5)=8291 
»nuid(6)-8308: 
anuid(7)=8240 
all  setmen(pl,irec) ; 

//  'helpO' 
enuid(l)=8296 
enuid(2)=8293; 
enuid(3)=8300: 
ienuid(4)=8304; 
enuid(5)=8240: 
ienuid(6)=8224 
ienuid(7)=8224; 
:all  setmen(pl ,irec) ; 

//    'controlO' 
nenuid(l)=8291 
nenuid(2)=8303; 
r,enuid(3)=8302 
-ienuid(4)=8308 
nenuid(5)=8306 
ienuid(6)=8303: 
nenuid(7)=8300 
menuid(8)=8240; 
call  setmen(pl,irec)  ; 

call  updmr; 

call  initim;     if   generate  image  to  initialize  TT  Display 
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for(i=l 

{ 

inopt 

inopt 

inopt 

inopt 

inopt 

inopt 

inopt 

> 


if   set  label, log  conr.iand,button  coordinates  and 
#  action  code  into  inopt 
;i<=6;i=i+l)     #  label 


(i,l)=ll(i) 
(i,2)=12(i) 
(i,3)-13(i) 
(i,4)=14(i) 
(i,5)-15(i) 
(i,6)-16(i) 
(i,7)=17(i) 


//      coordinates    of    buttons 
inopt  (8,1)  =3; 
inopt(10,l)=l; 
inopt(8,2)=7; 
inopt(10,2)=5; 
inopt(8,3)=23; 
lnopt(10,3)-21; 
inopt(8,4)=ll; 
inopt(10,4)=9; 
inopt (8, 5) »1 9; 
inopt(10,5)=17; 
inopt(8,6)=23; 
Lnopt(10,6)=21; 
inopt(8,7)=15; 
Lnopt(10,7)=13; 

#  action  codes 
inopt(ll,  1)=7 
Lnopt(ll,2)=8; 
Lnopt(ll,3)=9; 
inopt(ll,4)=10; 
inopt(ll,5)=ll 
tnopt(ll,6)=12 
inopt(ll,7)=13: 

ir   set  left  and  right  bounds 
£or(i=l;i<=7;i=i+l) 
{ 
if(i==3)      //  acknowledge 

{ 

inopt(7,3)=10; 

inopt(9,3)=15; 

> 
else 

< 

inopt (7 ,i)=l ; 

inopt(9,i)=6; 

> 
> 
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it   store  image  for  buttons  and  label 
pi =2;  p2=TEXT; 
for(i=l;i<=7;i=i+l) 

{ 

inoptp=ibseq  (i) ; 

call  draw; 

ic=inopt  (  7  ,inoptp)+l ;  //  collum  of  label 

ir=inopt  (10  ,inoptp)+l ;        it   row  of  label 

call  poscur(pl,ir, ic,p2) ; 

for(k«l;k<-4;k»k+l)   //  image 

{ 

image (imagep)=label(k, inoptp) ; 

inagep=imagep+l ; 

} 
ic=inopt (9 , inoptp) ; 
ir=inopt( 8, inoptp) ; 

call  poscur(pl  ,ir,ic,p2) ;    if   right  lower  corner 
image (imagep)=inopt ( 1 , inoptp) ; 
inagep=imagep+l ; 
> 

it   convert  integer  of  coordinates  and  action  codes 
//  into  ASCII  coded 
for(i=l;i<=7;i=i+l) 
{ 

for(k=7;k<=ll;k=k+l) 
{ 

pl=inopt (k,i) ; 
call    intasc(pl,p2,p3) ; 
inopt(k,i)=p2*256+p3; 
> 
> 

//   roll    down   screen,    rov;  0   now   on    top 
image(imagep)=27  ;    it   ESC 
imagep=iiragep+l ; 
image(inxgep)=84;    't  T 
imagep=imagep+l ; 

it   clear   all    lines    of    the   raulti   purpose  menu    field 
p2«l;    pl=2;      p3=LEFTM;    p4«N0CH; 
call   poscur(pl,p2,p3,p4) ; 
f  or  (i=l ;  K-LMARG ;  i=i+l ) 

< 

ir.iage(imagep)=2  7 ;    it  ESC 

imagep=imagep+l ; 

ir.age(imagep)  =  75;  if   K 

imagep=inagep+l ; 

image(imagep)=2  7 ;  it   ESC 

inagep=inagep+l ; 

image (imagep)  =66;  it   B 

inagep=imagep+l ; 

if(i==10)  //separate    cor^.and   string 

{ 

image  (imagep)  =2  7  ;    it  ESC 
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imapep=imagep+l ; 
image(imagep)=65;  if   A 
imagep=imagep+l ; 
image (inagep) =36;  if    $ 
inagep=imagep+l ; 
> 


> 


#  set  end  of  input  code 
image  (iinagep)  =36;       #  $  (CR  LF) 
imagep=inagep+l ; 

image  ( iinagep )  =ENDOFI ; 
imagep=imagep+l ; 

call  shift;  if   arrange  image  in  buffer 

//  store  parameters 
p 1=1 ;  call  intasc(pl ,p2,p3) ; 

inopt (2 , 36)=p2*256+p3;   #  menu  typ  (start  menu) 
pl=7;  call  intasc(pl ,p2,p3) ; 

inopt (3 , 36)=p2*256+p3;   #  nurber  of  input  options 
inopt(15,36)=ENDOFR;     //  end  of  record  code 

if   write  in:agerecords 

#  temporarily  substitute  the  last  entry  by  '0' 
if   to  prevent  that  it  is  a  trailing  NUL. 

for(ind=542;  ind<=IMAGEL;  ind=ind+54C) 

{ 

indbeg=ind-541 ; 

isave=image(ind) ;  image(ind)=8240 ;  if   SP.'O' 

write (LUhW,  1000)  (image (i)  ,i=indbeg,ind) ; 

1000  format(544al); 

image (ind)=isave; 

> 

#  write  input  option  records 
write (LUMW, 500)  (rbuf f (i) ,i=l ,2/1) ; 
write(LUnW,500)  (rbuf f (i) , i-2  71 , 541 ) ; 
500  format(272a2); 

it    create  records  for  all  predecessor  menus 
irecn=NDREC+6;   #  last  record  of  startnenu 
while(irecn  <  highr) 

{ 

for(i=l;i<=6;i=i+l) 

< 

write(LUMW,500)  (rbuf  f(k)  ,k=l ,  2/1 ) ;  if   dummy  records 
irecn=irecn+l ; 
} 
> 


//  copy  file  from  menuout  to  menufile 
call  cpfile; 

return; 
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end 


#** ************************** ***************************************** 

if 

if  I  N  I  T  I  M 

// 
//********************************************************************* 

f 

#  Initial  release  —  hn/6  november  79 
E  NAME: 

//       initim 

if   FUNCTION: 

//       create  the  image  to  initialize  the  TT  Display 

t 

ifiHhiH^HfiiiliHhHH^HHHHHHhhHHHHHHHhHhHHhHHHhiiHHhnHiihJiH^iHhHHHH^iHHHHHHHHHh'f 

subroutine  initim; 

common  /b Ik 1/ image, imagep,inopt ,  inoptp  ; 

integer*2  image(IMAGEL)  , imagep  ,inopt  (INOPTL.INMAX) ,  inoptp; 

if  ESC   E  —   Initialization 
//image (imagep)  =2 7  ;  //  ESC 

//imagep=itaagep+l ; 
//image (imagep)  =69 ;  if  E 

#imagep=imagep+l ; 

if  ESC   J   —   clear   screen 
//image  (imagep)  =2/ ;  //   ESC 

//inagep=imagep+l ; 
//image (imagep) =74;  //   J 

//imagep=iinagep+l ; 


//  ESC    )    B   —   define    character   set    3 
//image  (imagep )  =2  7 
#imagep=imagep+l ; 


//image  ( imagep )  =41 
//inagep=imagep+l ; 
#image ( imagep ) =66 
//imagep=imagep+l ; 


//  ESC 

#  ) 

//  B 


if   Image  to  home  the  cursor  and  get 
if   rid  of  "TERMINAL  READY" 

image  (imagep)  =2  7  ;       //  ESC 

imagep=imagep+l ; 

image  (imagep)  =  104;      //  h 

imagep=imagep+l ; 

image  (imagep)  =2  7  ;  if   ESC 

imagep=imagep+l ; 
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i.mage(imagep)  =  75 ;    #   K 
Lragep=inagep+1 ; 

return; 
;nd 


,!*********************** ************************ A AAA*** * ************* 

?  DELETE 

I 
r 

f**********  *******  A  *****************  *****AAA****************  :'<******** 

f  NAiiE: 

f  delete 

P   FUNCTION: 

?  delete    an   entry    in   r.enu    directory 

)  ALGORITHM: 

}  while(entries  in  directory) 

}  read  record  into  input  buffer 

}  if  entry  was  already  found 

}  write  buffer 

}  else 

t  search  entry  in  buffer 

}  if  found 

i*  delete  entry  in  buffer 

t  set  found  flag 

r  write  buffer 

} 

'i  copy  rest  of  menufile  to  nenuout 

!t  copy  nenuout  to  menufile 

P 

subroutine   delete; 

:on:non    /blk4/tnenuid,  ipreun; 
Lnteger*2   tnenuid(lO)  ,ipredc.(10) ; 

Lnteger*2   buff (544),    dir(12,45),    irec, found; 
equivalence    (dir(l,l),    buff(l)); 

#   preset    data 
Lrec=l;    //   counter   for   records 
Eound=0;  //   found   flag   —  notfound 

//set    END-OF-FILE   exit 
if (ierror(104)    !=   0)    goto  9999; 

if   search   directory    records 
jrhile(irec   <=  NDREC) 
< 
read (LUMR.l COG)    (buf f (i) ,i=l ,544) ; 
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1000  format(544al); 

if (found  ==  0)  if   entry  not  yet  found 

{ 

k=l;        if   pointer  to  entries 
while (k<=45  &  found==0) 
{ 

1=1;      //  pointer  to  characters 
while(l<-10) 
{ 

if(menuid(l)  !=  dir(l,k))  break;        //  no  match 
if(l>=10)  //  entry  found 

{ 

f ound=l ; 
for(i=l;i<=10;i=i+l) 

dir(i,k)=8240;      if   fill  in  '0', delete  entry 
> 
1-1+1; 
> 
k»k+l ; 

> 
} 

write(LUMW,1000)    (buf  f  (i) ,  i-1 ,  542) ;         //  write    record 
> 

if  copy    rest    of   ruenufile 
while(l>0) 
< 

read (LUMR, 1000)    (buff (i), i-1, 544); 
write(LUIIW,1000)    (buff  (i)  ,1-1,542) ; 
} 

9999   call   cpfile;  if   copy   back    from  rnenuout    to   nenufile 

return; 

end 


//***********  *  ***********************************  ***************  ******* 

if 

if  UPDATE 

if 
//********************************************************************* 

a 

if   Initial  release  —  hn/12  oct  79 

if   NAME: 

if  update(irec) 

//  CALLING  PROGRAM: 

if  menued 

if   FUNCTION: 

if  Determine  length  of  image  needed 

if  Generate  ircage  and  input  options  and  store  them 

if  in  the  menu  file  starting  at  record  irec 

#  INPUT  PARAMETER: 
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?/  irec  -  record  number  in  nenu  file  to  store  first  record 

//  NOTE: 

if  This  routine  is  responsible  that  all  nenu  records 

it  are  copied  to  the  temporary  menu  file. 

#   ALGORITHM: 

ir  generate  header  (no  image  generation) 

if  while  there  are  more  text/question  blocks 

//  generate  a  block  (no  image  generation) 

//  close  the  input  file 

//  open  input  file  for  second  run 

//  generate  header 

//  generate  blocks  having  the  right  spacing 

ii  write  records 

//  close  files 

if 
MHftilHtMiHhUtiitihMHHHHHHhWiHHHhiiilHHWIHHHHHhi 

subroutine  update(irec) ; 

integer*2  irec; 

common  /b Ik  1 /image, imagep ,inopt , inoptp ; 

integer*2  image ( IHAGEL ) ; 

integer*2  imagep; 

integer*2  inopt (INOPTL,INMAX) ; 

integer*2  inoptp; 

common  /blk2/lincnt ; 

integer*2  lincnt; 

common  /blk6/nblock; 

integer*2  nblock; 

common  /blk9/ispace ; 

integer*2  ispace; 

integer*2  buff(60),  pi ,p2,p3,p4,p5; 


if   preset  data 
ispace=0; 
lincnt=0; 
inoptp=l ; 
imagep=l ; 


if   generate  header,  read  number  of  blocks 
//  first  run  -  no  image 

pi-i; 

call  header(pl); 

#  generate  blocks,  first  run  -  no  image 
for(i=0;  i<=nblock;  i=i+l) 
call  block(pl); 

if   close  input  file,  open  again 
rewind  LUR; 
call  setfiKLUR.'infile  '); 
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it   preset    data   for   second    run 
if (lincnt>20)    write (6 , 19) ; 19    format('Too   nany    image    lines    needed'); 
ispace=(LRARG-lincnt) /(nblock+1) ; 
lincnt    =    0; 
image p=l ; 
inoptp=l ; 
pi  =2;        if   second    run  —  generate   iir.age 

//   clear   all    lines    of    the   raulti   purpose   menu   field 
P2=l;    p3=LEFTM;    p4»N0CH; 
call   poscur(pl,p2,p3,p4) ; 
for(i=l;i<=LMARG;i=i+l) 

{ 

image (imagep) =2 7 ;    //  ESC 

iinagep=imagep+l ; 

image(iraagep)  =  /5;    it  K 

imagep=imagep+l ; 

image (imagep) =2 / ;  #  ESC 

inagep=imagep+l ; 


image (imagep) =66 ;  it   B 
imagep=imagep+l ; 
if (1--10) 

< 

image (imagep) =2/ 
imagep=imagep+l ; 
image (imagep ) =65  : 
imagep=imagep+l ; 
image (imagep) =36 
imagep=imagep+l ; 
> 
> 


//separate  command  string 
ESC 


//  update  directory  records, retrieve  data, store  it  in  mr 
call  upamr; 

//  dummy  read  of  function  code, menu  id, 

it   predecessor  menu  id,  menu  type 
read(LUR,100C)  buff(l); 
read(LUR,2000)  buff; 
read(LUR,2000)  buff; 
read(LUR,1000)  buff(l); 
1000  format(i3);  2000  f ormat(80al) ; 

#  generate  header  -image- 
call  header(pl); 

it    generate  blocks  -image- 
ford^  ;i<=nb  lock;  i=i+l  ) 
call  block(pl); 

//  write  records,  close  menu  file 
call  f inish(irec) ; 
return; 
end 
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A ****************************** *************************************** 

if 

#  HEADER 

# 

ft  *********************************************** ********************** 

// 

#  Initial  release  — hn/12  oct  /9 
I  NAME: 

#  header(inp) 
I  CALLING  PROGRAM: 

//       update 

//  FUNCTION: 

if  read  menu  title  and  number  of  blocks 

|  INPUT  PARAIiETER: 

it  inp  -  1:  first  run,  no  image  generation 

//  2:  second  and  final  run 

//  ALGORITHM: 

it  clear  all  tabs 

it  position  cursor  to  first  line 

//       copy  text 

it  read  number  of  blocks 

# 

//  //  #  #  //  #  #  //  //  #  tf  it  #  # #  //  //  //  //  4  it  it  it  it  it  it  it  #  it  //  //  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  #  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

subroutine  header(inp); 


common  /blk6/nblock; 

integer*2  nblock; 

common  /blkl /image, imagep ,inopt ,inoptp ; 

integer*2  image ( Il-iAGEL ), imagep,  inopt  (INOPTL,  IJT1IAX)  ,inoptp; 


integer*2  inp; 

integer*2  pi, p2,p3, dummy ; 


it   clear  all  tabs  ~  ESC  3 
image  (imagep)  =2 7;       //  ESC 
imagep=imagep+l ; 
image (imagep) =5 1 ;       #  3 
imagep=imagep+l ; 

it   position  cursor  for  menu  title  and  copy  it 
pl=0;  p2=LEFTh;  P3=TEXT; 
call  poscur(inp,pl ,p2,p3) ; 
call  copy (inp, dummy ) ; 

//  read  number  of  blocks  from  input  file 
read (LUR, 1000)  nblock; 
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1000  format (i3); 

return; 
end 


it 

//  BLOCK 

// 

#*****************************************************  **************** 
# 

7/  Initial  release  —  hn/12  oct  79 
//  NAME: 

it  block  (inp) 

it   CALLING  PROGRAM: 
it  update 

#  FUNCTION: 

it  read  the  parameter  for  a  block  and  store  then 

it  determine  positions  of  buttons 

it  draw  each  button  and  label  it 

//  INPUT  PARAMETER: 

if  inp  -  1:  first  run  -no  image- 

s'/-' 2:  second  and  final  run 

//  ALGORITHM: 

it  read  block  parameters 

it  copy  text/question 

//       determine  coordinates  of  buttons 
it  draw  each  button 

// 

subroutine  block(inp); 


common  /blk2/lincnt ; 
integer*2  lincnt; 
common  /blk7/nbutt , iloc, isize; 
integer*2  nbutt, iloc, isize; 
common  /blk9/ispace; 
integer*2  ispace; 

integer*2  inp; 

integer*2  icode; 

integer*2  pi, p2,p3,is, ix,iy, ic, Ibutt ,ltext ; 


it   read  block-start-code 

it   if  not  present  write  error  message 


157 


read (LUR, 1000)  icode; 
1000  format (i3); 
if  (icode  !=  SBLOCK) 

{ 

write (LUU, 100); 

100  f  orr.at  (lx, 'Mo  text  or  question  block'); 

return; 

> 

//  read  block  parameters 
else 
{ 

read  (LUR,  1000)  nbutt;        if   number  of  buttons 
read  (LUR,  1CC0)  iloc;         if   location  of  buttons 
read (LUR, 1000)  isize;        #  size  of  buttons 

if   do  spacing  before  block 
is=ispace ; 
call  linef d (inp ,is ) ; 

if   button  row  beside  text 
if  (iloc  ==  LOCB) 

< 

lbutt=isize+2; 

ltext=lbutt/2; 

ix=RhARCB; 

iy=lincnt+lbutt-l -isize; 

idx=(isize+DELTA)*1.5; 

ix=ix-(nbutt-l)*idx; 

idy=0; 

> 

#  button  collunn  beside  text 
else  if (iloc  ==  L0CC) 
< 

lbutt=nbutt*(isize+DELTA)-DELTA+l; 
ltext=lbutt/2; 
ix=RIiARGC; 

iy=lincnt+lbutt-l -isize; 
idx=0; 

idy=(isize+DELTA); 
iy=iy-(nbutt-l)*idy ; 

> 

it   button  row  under  text 
else  if (iloc  ==  L0CA) 

< 

lbutt=isize+3; 

ltext=l ; 

ix=(RI-1ARGA+LEFTM-DELTA+nbutt*(isize+DELTA) )  /2; 

iy=lincnt+3; 

idx=(isize+DELTA)*1.5; 

ix=ix-(nbutt-l)*idx; 

idy=0; 
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> 

#  copy  text 
ic  =  K0D01IE; 

call  linef d (inp , Itext) ;  #  linefeed  to  start  of  text 
while (ic  —  NODOKE) 
{ 

pl«LEFTM;  p2=TEXT;  p3=lincnt; 
call  poscur(inp,p3,pl,p2) ; 
call  copy (inp, ic) ; 
pl=lbutt-ltext; 
If  (ic—NODONE  L    iloc==LOCA) 

{ 

lbutt=lbutt+l; 

iy=iy+l; 

> 
else 

call  linef  d(inp,ol) ;    if   linefeed  below  text 
> 

#  draw  buttons 
for(k=l;k<=nbutt;k=k+l) 

{ 

pl=isize; 

call  button(inp,pl,ix,iy) ; 
ix=ix+idx; 
iy=iy+idy; 
> 
> 


return; 

end 


;/************  *  *******************  **  *******  *******  ******  *************** 

// 

#  FINISH 
// 

//  **********************************************************  *********** 

// 

/r  Initial  release  —  hn/12  oct  79 

#  NAME: 

#  finish(irec) 
//  CALLING  PROGRAM: 

if  update 

//  FUNCTION: 

//       write  menu  records  onto  nenu  file 

//  INPUT  PARAMETER: 

//       irec  -  first  menu  record  on  file 

//  ALGORITHli: 

//       divide  image  store  into  record  size  pieces 
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//       if  image  pointer  within  a  piece,  store  E1TD0FI 

it  if  image  pointer  within  or  at  the  end  of  a  piece 

//  store  ENDOFR 

it  write  record 

//  determine  last  entry  in  input  option  store 

it  store  menu  parameter  and  ENDOFR 

#  write  record 
// 

#  #  #  #  //  //  it  //  #  //  *  //  #  #  #  //  #  tf  #  #  #  //  #  #  //  #  #  //  #  #  it  //  //  //  it  it  it  it  ?/  #  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  if 

subroutine  finish (irec) ; 


integer*2  imager,  inputr,pl ,p2,p3,p4,irec; 

common  /blkl /image , imagep , inop t , inoptp ; 

integer*2  image  (Il-iAG EL ) ; 

integer*2  imagep; 

integer*2  inopt  (IN0PTL,IN1IAX) ; 

integer*2  inoptp; 

common  /blk2/lincnt ; 

integer*2  lincnt; 

common  /blk8/mentyp , ipredr ; 

integer*2  mentyp, ipredr; 

common  /blkl3/mr ,ptr ; 

integer*2  mr(21 , 50) ,ptr; 

common  /blkl4/highr; 

integer*2  highr; 

integer*2  recent;       //  counter  for  written  records 
integer*2  save; 
integer*2  inputo(542); 
equivalence(inputo(l ) ,  inopt (1,1)); 

it   temporary  buffer  for  records 
integer*2  rbuff(5A4); 

reccnt=l.'DREC;    it   preset  counter  (20  directory  records) 

it   save  first  record  numbers  for  image  and  input  options 
imager=mr (2 1 , irec) ; 
inputr=imager+i'IREC; 


//set  END-OF-INPUT  code 
image ( imagep ) =END0FI ; 
imagep=iinagep+l ; 

if   shift  image  to  avoid  records  cutting  command  strings 
it   and  set  ENDOFR  in  last  image  record 
call  shift; 

it   set  label  for  END-OF-FILE  condition 
if (ierror(104)  !=  0)  goto  9999; 

//  copy  all  records  up  to  first  record  of  this  menu 
for(k«NDREC+l;  k<imager;  k-k+1) 
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{ 

read (LUMR, 1000)  (rbuf f (ij ) ,ij=l , 544) ; 
write (LUMW, 1000)  (rbuf f (ij ) ,ij=l , 542) ; 

reccnt=reccnt+l ; 
1000  format (544al); 

> 

#  write  image  records 

#  temporarily  substitute  the  last  character  to  ensure 
lr   that  it  is  no  space. This  would  decrease  the 

//  fixed  record  length. 
for(ind=542;ind<=IMAGEL;ind=ind+540) 

{ 

save=image(ind) ;  image(ind)=3240;      //  SP  '0' 

indbeg=ind-541 ; 

write (LUMW, 1000)  (inage(i) , i=indbeg, ind) ; 

image (ind)=save; 

reccnt=reccnt+l ; 
} 


pl=mr(21 ,ipredr) ;  call  intasc(pl ,p2 ,p3) ; 

inopt(l,29)=P2*256+p3; 

pl=tnentyp;    call    intasc(pl  ,p2,p3) ; 

inopt(2,29)=p2*256+P3; 

pl=inoptp-l;  call  intasc(pl ,p2,p3) ; 

inopt(3,29)=p2*256+p3;  if   number  of  options  (incl.  pern.b.) 

inopt(15,29)=LNDOFR; 


//  convert  integer  into  ASCII 
for(k=l ;k<inoptp ;  k=k+l) 
{ 

for(kk=7;kk<=ll;  kk=kk+l) 
{ 

pl=inopt (kk,k) ;  call  intasc(pl ,p2,p3) ; 
inopt(kk,k)=p2*256+p3; 
> 
> 

//  write  input  option  records 
write(LUtiW,500)  (inputo(i),  1-1,271); 
reccnt=reccnt+l ; 

write (LUhW, 500)  (inputo(i),  1-271,541); 
reccnt=reccnt+l ; 
500  format(271a2); 

if   copy  rest  of  menu  file 

#  if  done  goto  9999 
if (ierror(104)  !=  0)  goto  9999; 

//  dummy  read  over  old  menu  records 
for(i=NIR£C+NOREC;  i>0;  i=i-l) 

read (LUMR, 1000)  (rbuf  f  (ij  )  ,ij  =  l ,  544) ; 
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iconst=l ; 
while(iconst==l) 

{ 

read (LUHR, 1000)  (rbuf f (ij ) , i j=l , 544) ; 

write(LUlU;,1000)  (rbuf  f  (ij  ),  ij  =  l ,  542) ; 

reccnt=reccnt+l ; 
> 

9999  vhile(highr  >   recent)  it  more    records    to    create 

{ 
for(i=l;i<=6;i=i+l) 

write  (LUliW,  1000)    (rbuf  f  (ij  )  ,ij  =  l  ,542) ; 
reccnt=reccnt+6 ; 
> 

call    cpfile;  it   copy    file    from   nenuout    to    r.enufile 

return; 
end 


#*****  *******************************  **  **********************  ********* 

// 

it  COPY 

if 
//********************************************************************* 

« 

it   Initial  release  —  hn/14oct  79 

it   NAME: 

//       copy  (inp, if  lag) 

//  FUNCTION: 

it  copy  text  from  input  file  to  image  array 

it   INPUT  PARAKETER: 

it  inp   -  1:  do  not  copy 

if  2:  do  copy 

it   OUTPUT  PARAMETER: 

//       iflag  -  DONE:   '@*  encountered,  end  of  text 

it  N0D0NE:  not  yet  end  of  text 

it   ALGORITHM: 

it  if  inp  =  1:  return 

it  preset  iflag  to  NODONE 

it  read  80  character  input  line 

//  if  '@' 

//  set    iflag    to  DONE,    return 

it  if    'CR' 

it  return 

it  copy  input  character  by  character 

it 

it  it  it  it  Hit  it  it  it  it  it  if  it  it  it  it  it  if  it  it  it  it  it  it  it it  it  it  it  it  it  it  itit  it  it  it it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  itit  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  V 

subroutine    copy (inp, if lag) ; 
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integer*2  inp, if la^, ichar, pi ; 

common  /blkl /image, imag ep , inopt , inoptp ; 

integer*2  image (IMAG EL ) ; 

integer*2  inagep; 

integer*2  inopt (INOPTL.INMAX) ; 

integer*2  inoptp; 

common  /blk.5/ibuf  f ; 

integer*2  ibuff(80); 


#  preset  output  flag 
iflag=NODONE; 

//  read  input  line 
read (LUR, 100)  ibuff; 
100  format(80al); 

//  copy  characters,  break  if  '@' 
ichar=8256;     i\   SP.'@' 
pl-1; 

for(i=l;  i<=80;  i=i+l) 
{ 

if (ibuff (i)==ichar)   #  SP.'@' 
< 
iflag=DONE; 

call  linefd (inp,pl) ; 
return; 
> 
if  (ibuff  (i)==8205  |  ibuff  (i)==8316)   //  SP.CR  or  |  (end  of  line) 
< 
call  linef d (inp ,pl) ; 
return; 
> 
else  if(inp  !=  1)  < 
image (imagep)=ibuff (i  ) ; 
imagep=iiragep+l ;  > 
> 

return; 
end 


//  ********************************************************  ************* 

?/ 

//  LINEFD 

//**************  ***************************************************  A*** 

# 

if  Initial  release  —  hn/14  oct  79 
//  NAME: 
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//       linef  d(inp,  nun) 

//  FUNCTION: 

it  generate  display  commands  for  line  feed/  carriage  return 

if   INPUT  PARAMETER: 

it  inp  -  1:  do  not  generate,  only  update  lincnt 

it  2:  generate  line  feeds,  update  lincnt 

it  nun  -  nuiaber  of  line  feeds 

it   ALGORITHM: 

//       update  lincnt 

it  if  inp  =  1   return 

it  generate  linefeeds,  carriage  return 

it 

it '-it 'it it it it [it -it it 'it it [ti it it  it  if  it it it if it  it it  it  it it it it it it  it it "it  it it -it it it it it it it it it it it it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

subroutine  linef  d  (inp, nur.i) ; 


integer*2  inp,nur.; 
common  /blk2/lincnt ; 
integer*2  lincnt; 

linen t=lincnt+num; 

if(inp==l)  return;  it   no  image  generation 

call  crlf; 

return; 

end 


#********************************************************************* 

it 

it  POSCUR 

// 

//********************************************************************* 

it 

it   Initial  release  —  hn/14  oct  79 

if   NAME : 

//       poscur(inp  ,  irow,  icol,  icode) 

//  FUNCTION: 

it  position  the  cursor  and  switch  to  requested  node 

//  INPUT  PARAMETERS: 

//       inp    -  1:  do  nothing 

//  2:  do 

//       irow   -  row  nunber 

it  -1  if  only  co  11  urn  change 

if  icol   -  collunn  number 

it  -1  if  only  row  change 

//  if  both  irow  and  icol  =  -1,  only  change  node 

it  icode  -  new  mode 

it  BUTT  -  Alternate  character  set  (lines) 

it  TEXT  -  Ease  character  set 

it  UOCli   -   No  change,  leave  old  character  set 

//  ALGORITHM: 
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if  if  inp  =  l   return 

if  if  new  mode  !=  NOCH 

if  switch  to  new  node 


ff       position  cursor 

# 

subroutine  poscur(inp,irow,icol,icode) ; 


integer*2  inp.irow, icol, icode; 

common  /blkl  /image ,  Imagep  ,  inop  t ,  inoptp  ; 

integer*2  image ( IMAGEL ) ; 

integer*2  imagep; 

integer*2  inopt (INOPTL,INMAX)  ; 

integer*2  inoptp; 

con.non  /blk3/mode; 

integer*2  mode; 

common  /blklO/rowcur ; 

integer*2  rowcur; 

integer*2  irownv(6); 
integer*2  icolmv(6); 
integer*2  ircmv(9); 


data 
data 
data 
data 
data 
data 

data 
data 
data 
data 
data 
data 
data 
data 
data 

data 
data 
data 
data 
data 
data 


//  ESC 
irov;nv(l 
irownv(2 
irowmv(3 
Irowmv(4 
irowmv(5 
Irowrav(6 

if  ESC 
ircmv(l ) 
ircmv(2) 
Irctnv(3) 
ircmv(4) 
ircmv(5) 
ircmv(b) 
ircuv(7 ) 
ircmv(8) 
ircnv(9) 

//  ESC 
icolmv(l 
icolmv(2 
icolmv(3 
icolmv(4 
icolmv(5 
icolmv(6 


&  a 
)/27/' 
)/38/ 
)/97/ 
)/32/ 
)/32/ 
)/32/ 

&    a 

mi ' 

/38/ 

mi 
mi 
mi 

/114/; 

mi 
mi 

1671 
L  a 
)/27/ 
)/38/ 
)/9// 
)/32/ 
)/32/ 
)/67/ 


if(inp  ==  1)  return; 


if   move  only  row 
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if(icol  ==  -1  6  irow  !=  -1) 

< 

irowmv(4)  =  irow/10+48;      //  'C 
irownv(5)  =  r:.od(irow,  10)  +48;       #  'C 
for(i=l;  i<=6;  i=i+l) 

{ 

image(imagep)  =  irov/uv(i); 

im.agep  =  iir.agep+l ; 

> 

w   save  row  of  cursor 
rowcur=irow; 
> 

if   move  only  col 
else  if(irow  ==  -1  £,  icol  !=  -1) 
< 

icolmv(4)  =  icol/10  +  48;     //  '0' 
icolmv(5)  =  nod(icol,10)  +  48;        (f    '0' 
for(i=l;  i<=6;  i=i+l) 

< 

inage(imagep)  =  icolrv(i); 

iniagep=imagep+l ; 

} 
> 

it   move  row  and  col 
else  if(icol  !=  -1  &  irov;  !=  -1) 
{ 

it   separate  command  string 
if (rowcur<23)  call  crlf; 
ircmv(4)  -  irow/10  +  48;      //  '0' 
ircmv(5)  »  taod(irow,10)  +  48;        #  'C 
ircmv(7)  =  icol/10  +  48;     if    '0' 
ircmv(8)  =  mod  (icol,  10)  +  48;        If    '0' 
for(i=l;  i<=9;  i=i+l) 
{ 

image (inagep)=ircmv(i) ; 
imagep=imagep+l ; 
> 

//  save  row  of  cursor 
rowcur=irow; 
> 

#  change  mode  if  necessary 
if(icode  !=  NOCH) 
{ 

image(imagep)  =  icode; 
imagep=imagep+l ; 
mode  =  icode; 
} 

return; 
end 
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#  BUTTON 
// 

//A*******************AAAAAAAAAAAAAAAAAAAAAAAAAAA  A*  AAA  A*  AAA  A  *******  A  A** 
# 

//  Initial  release  —  hn/  14  oct  79 

#  NAME: 

#  button (inp ,isize, ix, iy) 
//  FUNCTION: 

if  read  additional  button  information  and  store  it  in  inopt 

if  initiate  drawing  of  the  buttons 

if   INPUT  PARAMETERS: 

if  inp    -  1 :  do  not  drav/  buttons 

if  2:  do  everything 

if  isize  -  size  of  the  buttons  to  craw  (number  of  lines) 

if  ix    -  colluro  number  of  rigth  upper  corner 

//  iy    -  row  number  of  rigth  upper  corner 

//  ALGORITHM: 

if  read  start-of-response  code 

if  if  not  there,  write  error  message 

if  read  and  store: 

//  label 

//  plain-English  mesage  for  logging 

if  action  code 

//  if  display-new-menu 

if  read  menu-id 

if  get  first  record  number  of  menu 

//  store  record  number  in  inopt 

if  if  return-character 

if  read  character  and  store  it 

if  if  return-integer  or  return-task-id 

if  read  integer  and  store  it 

if  if  parameter-block-update 

if  #-l-H  I  I  I  I  do  not  know  yet 

//  if  inp  ==  2 

//  store  button  coordinates 

if  create  button  images 

//  increment  pointer  in  inopt 

if 

if  if  if  if  if  if  if  if  if  if  ;f  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if if  if  if  if  if  if  if  if  if  if  if  if  if  if if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if 

subroutine  but  ton (inp ,size, ix,iy) ; 

integer*2  inp, size, ix, iy, ichar, irec ; 
integer*2  pl,p2,p3; 

common  /blkl /image, imagep , inopt , inoptp ; 
integer*2  image  (IMAGED  ; 
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integer*2    irnagep; 

integer*2    inopt(D:OPTL,INlIAX) ; 

integer*2  inoptp; 

common  /blk4/menuid, ipredm; 
integer*2  r.ienuid(10) ; 
integer*2  ipredm(lO); 

common  /blk5/ibuf  f ; 
integer*2  ibuf f (IBUFFL) ; 

integer*2  icode;        it   temporary  storage 

it   input  buffer  40  words 
integer*2  iwbuff(40); 

ichar=8256;     it   SP.'@' 

//  read  start-response  code 
read (LUR, 1000)  icode; 

1000  format (13); 
if (icode  !=  SRESP) 

{ 

write (LUU, 100); 

100   format (lx, 'Ko    response    to   read'); 

return; 

> 

else 

< 

v  read  label  and  store  it 
read (LUR, 200)  ibuff; 
300  forir.at(40a2)  ; 
inopt(l , inoptp)  =  ibuff (1); 

it   read  plain-English  message  and  store  it 
read (LUR, 300)  iwbuff; 
for(i=2;  i<=6;  i=i+l) 

{  if (iwbuff (i-l)==ichar)  break; 
inopt (i, inoptp)  =  iwbuff(i-l);  ) 

if   read  and  store  action  code 
read (LUR, 1000)  iact; 
inopt(ll , inoptp)  =  iact; 

it   display— new— menu 
if(iact  ==  1) 

< 

it   read  menu-id  and  store  it 
read (LUR, 200)  ibuff; 
200  format (80al); 
for(i=l;  i<-10;  i=i+l) 

ipredn(i)=8240;        #  SP.'O' 

i-lj 

while(i<=10  &  ibuff (i) !=  ichar) 
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{  ipredn(i)=ibuff (i);  1-i+l;  > 
if (inp==l) 
{  pl-PREDh; 
call  setnen(p 1 , irec) ; }    if   set  menu  record  number 
else  {  call  ^etr.-.en(irec)  ; 

pl=irec;  call  intasc(pl ,p2,p3) ; 
inopt  (12  ,inoptp)  =  p2*256+p3;      i?  store  record  nunber 

> 
> 

if   return-character 
else  if(iact  ==  2  |  iact  ==  4) 

{ 

read(LUR,300)  iwbuff; 

inopt (12, inoptp)  =  iwbuff(l); 

} 

if   integer  or  task-id 
else  if(iact  ==  3  |  iact  ==  14) 

< 

read (LUR, 1000)  pi 

call  intasc (pi ,p2,p3) ; 
inopt (12, inoptp )=p2*256+p 3; 
> 

//  llllll  pb  change,  do  not  yet  know 
else  if(iact  ==  15) 

{ 

continue ;#++++  do  not  know 

> 

#  draw  buttons 
if(inp  ==  2) 

{ 

inopt (7 , inoptp)  =  ix+l-size*l . 5 ; 

inopt(8, inoptp)  =  iy-1+size; 

inopt (9, inoptp)  =  ix; 

inopt (10, inoptp)=  iy; 

call  draw; 
> 

inoptp=inoptp+l ; 
> 


return; 
end 


V 


********************************************************************** 
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DRAW 


9 

if   Initial  release  — hn/  15  Get  79 

if   NAME: 

if  draw 

//  FUNCTION: 

if  create  image  to  draw  a  button 

H   ALGORITHM: 

if  clear  all  tabs 

if  set  tab  at  right  button  margin 

if  set  tab  at  left  button  margin 

//       position  cursor  to  left  upper  corner 

if  while  nore  lines 

if  enhance  line  within  tabs 

if  tab  to  beginning  of  next  line 

if  tab  to  left  limit  of  button 

it  draw  label 

if 

if if  if  if  if  if  if  if  if  if  if  if  it  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  If  if  if  if  if  if  if  if  if  if  \f  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if 


subroutine  draw; 


integer*2  p 1 ,p2,p3,p4, iy , ir, ic; 

common  /blkl /image, imagep , inopt ,inoptp ; 

integer*2   inage (IMAGED  ; 

integer*2  imagep; 

integer»2  inopt (INOPTL,INMAX) ; 

integer*2  inoptp; 

common  /blklO/rowcur ; 

integer*2  rowcur; 

integer*2  icltab(2);     if   clear  all  tabs 
integer*2  endenh(4);     if   end  of  enhancement 

if   ESC  3 
data  icltab(l)/27/; 
data  icltab(2)/51/; 

//  ESC  &  d  @ 
data  endenh(l)/2//; 
data  endenh(2)/38/; 
data  endenh(3)/100/; 
data  endenh(A) /64/; 

if   separate  command  string 
call  crlf; 

if   clear  all  tabs 
for(i=l;  i<=2;  i=i+l) 


1/0 


image(inagep)=icltab(i) ; 

inagep=imagep+l ; 

> 


#  set  right  tab 
pl=inopt (9, inoptp )+l ; 
call  settab(pl); 

//  sane  for  left  margin 
pl=inopt (7 , inoptp) ; 
call  settab(pl); 

it   save  upmost  line  of  button 
iy=inopt (10,inoptp) ; 

it   draw  enhancement  for  button 
while(iy  <=  inopt (8, inoptp) ) 
{ 

//  position  cursor  to  upper  left  corner,  change  mode 
pA=2;   p3=BUTT; 
call  poscur(p4,iy,pl,p3) ; 

call  enhanc; 

call  tab; 

f or (i=l ; i<=4; i=i+l )  it   end  of  enhancement  command 

{ 

image (imagep)=endenh (i) ; 

imagep=inagep+l ; 

> 

iy-iy+1; 

} 

it   draw  label 
ic  =  (inopt (/, inoptp)+inopt (9 , inoptp )) /2 ; 
ir  =  (inopt (8 ,inoptp)+inopt ( 10, inoptp) ) /2; 

if(ic<=12)  return;      #  no  label  for  permanent  buttons 

pl-2;  p2-TEXT; 

call  poscur(pl, ir,ic,p2) ; 

//  copy  label 
image (imagep)=inopt (1 , inoptp) ; 
iragep=imagep+l ; 

image (imagep)=inopt ( 1 , inoptp) /256 ; 
imagep=imagep+l ; 

return; 
end 


§ ******************* ** *************** ************** ******** *********** 

it 
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if  S  E  T  T  A  B 

I 

;/********************************************************************* 

.a 
it 

if   Initial  release  — hn/  15  oct  /9 
I  NAME: 

#  settab(icol) 

#  FUNCTION: 

#  position  cursor  to  specified  collur.n 
//       set  tab 

if   ALGORITHM: 

if  move  cursor  to  collunn 

//       set  tab 

if 

it#iflFitlfiHti}1fihfi}ifif1filit#iFit1Hti}1Htit##itit###1t# 

subroutine  settab(icol) ; 


integer*2  icol.pl ,p2,p3; 

common  /blkl /image, imagep, inopt , inoptp; 

integer*2  image ( IMAGEL ) ; 

integer*2  imagep; 

integer*2  inopt (INOPTL,INMAX) ; 

integer*2  inoptp; 

pl=2;  p2=-l;  p3=N0CH; 

call  poscur(pl ,p2, icol, p3) ; 

image (imagep )=ESC; 

itnagep=imagep+l ; 

image  (imagep)  =49;  if    '1' 

inagep=in,agep+l ; 

return; 

end 


#****************  *******************  *********  ************************* 

// 

//  TAB 

//********************************************************************* 

// 

if   Initial  release  —  hn/  15  oct  79 

//  NAME: 

if  tab 

//  FUNCTION: 

//       generate  tab 

if 

subroutine  tab; 
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common  /blkl/inage ,  imagep ,  inopt ,  incptp  ; 

integer-2  image (IMAGEL ) ; 

integer*2  imagep; 

integer*2    inopt (IN0PTL,IN1IAX) ; 

integer*2  inoptp; 

image ( imagep ) =ESC ; 

imagep=imagep+l ; 

image (imagep) =7 3;       #  'I* 

imagep=imagep+l ; 

return; 

end 


# 

it  E  M  H  A  N  C 

# 

//***********  *****************************************  A  *******  **Ai**** 
# 

#  Initial  release  — hn/  15  oct  79 
//  NAME: 

//       enhanc 

#  FUNCTION: 

it  start  enhancement  for  button  (inverse  video, half  bright) 

// 

//  it  #  it  it  it  it  it  it  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  if  it  it  it  it  it  if  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  if 

subroutine  enhanc; 


common  /b Ik 1 /image, inagep , inopt , inoptp; 

integer*2  image (IIIAGEL ) ; 

integer*2  imagep; 

integer*2  inopt (INOPTL,IKIIAX); 

integer*2  inoptp; 

integer*2  ienh(4); 

it   ESC  &  d  J 
data  ienh(l)/2  7/; 
data  ienh(2)/38/; 
data  ienh(3)/10C/; 
data  ienh(4)//4/; 

for(i=l;  i<=4;  i»i+l) 

{ 

image ( imagep )=ienh (i) ; 

inagep=inagep+l ; 

> 
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return; 
2nd 


if 

it  I  N  T  A  S  C 

if 

//*******  ***************************************************  A*  ********* 

// 

#  Initial    release   —  hn/31    October    79 

//  NAI1E: 

//       intasc(inp,out  1  ,out2) 

it   FUNCTION: 

if  Conversion  cf  an  integer  (0-900)  into  tv;o  integer*2  ASCII  codes 

if   ALCORITKM: 

if  outl-  inp/30  +40  (range  ASCII  40-70) 

//       out2=  iaod(inp,30)  +40  (range  ASCII  40-69) 

if 

if  //  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  it  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if 

subroutine  intasc(inp,cutl ,out2) ; 

integer*2  inp,out l,out2; 
integer  nunl,nur:2; 

nunl=inp ; 

outl=inp/30+40; 

nun2=nod(nuol , 30) ; 

out2=nura2+40 ; 

return; 

end 


7/ **********************************************************  *********** 

if 

if  ASCI    N   T 

if 
//********************************************************************* 

if 

if   Initial  release  —  hn/31  October  79 

if   NAME: 

if  ascint  (inl  ,in2,outp) 

//  FUNCTION: 

//       Conversion  of  an  ASCII  coded  nut.be  r  (0-900)  into 

//       an  integer*2  value 

if   ALCORITHM: 

if  outp=  (inl-40)*30  +  (in2-30) 

if 
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subroutine  ascint (inl , in2 ,outp ) ; 

integer*2  inl, in2,outp; 

outp=(inl-40)*3C+in2-4G; 

return; 

end 


//**************  ************************************  ********  *********** 

f 

it  C  R  L  F 

# 

//*********  *********************************************  *************** 

# 

//  Initial  release  —  hn/31  October  79 

|  NAME: 

//       crlf 

//  FUNCTION: 

//       create  cr/lf  for  inage  array  without  incrementing 

//       the  linecounter  lincnt 

// 

subroutine  crlf; 

common  /blkl/inage, imagep ,inopt , inoptp ; 
integer*2  inage (IKAG EL ) ,  imagep; 
common  /blklO/rowcur ; 
integer*2  rowcur; 


if  (rowcur>22)  return;  it   cr/lf  would  roll  up  the  screen 

image  (imagep)  =36  ;      it    $  (CR  LF) 

imagep=imagep+l ; 
return; 
end 


//******************  ******************************************  ********* 

it 

it  SHIFT 

it 

jf  *********************************************************  ************ 

it 

it   Initial  release  —  hn/31  October  79 

it   NAME: 

it  shift 
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it   FUNCTION: 

//       shift  the  contence  of  the  image  array  to  prevent 

it  separation  of  a  command  string  by  any  record 

it  place  ENDOFR  into  last  used  record 

//  ALGORITHM: 

it  while(image  fills  another  record) 

it  start  at  end  of  record  and  search  CR/LF 

it  if  found  compute  difference  to  end  of  record 

if  shift  rest  of  image  by  the  difference 

it  place  ENDOFR  into  last  used  record 

it 

it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  #  //  it  it  it  it  it  it  it  it  it  it  it  4  it  it  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

subroutine   shift; 

common  /blkl /image, imagep,inopt ,inoptp ; 
integer*2  image  (IMAGED  ,  inagep; 
integer*2  ind.diff; 

it   check  all  record  items 
f or(ind=540; ind<imagep;ind=ind+540) 
{ 

f or (index=ind; index>0;  index=index-l ) 
{ 

if (image (index)==ENDOFI )  break;  itend   of  input 
if  (image(index)==36)  it   $    (CR  LF) 

{ 

d if f =ind- index; 
imagep=imagep+cif f ; 
for (i=imagep;i>ind; i=i-l ) 

image (i)=image(i-d if f) ; 
image (index+1 )=END0FI ; 
break; 
> 
> 
> 

it   store  ENDOFR 
image (ind)=ENDOFR; 
return; 
end 


// 

it  S  A  V  E  M  R 

it 

//****************  *******  *  **************  *******  ********************  **** 

// 

//  Initial  release  —  hn/3  november  79 

it   NAME: 

it  savemr  (index) 

//  FUNCTION: 

it  store  old  and  new  menuids  (idold, idnew)  into  mr  and 
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i'i  return  the  index  in  rrr 

£  OUTPUT  PARAMETER: 

if  index  -  index  in  mr 

9 

MiiiHHhhhHflHhh'HhHHHHhHHHhi1tiHHt#iHHHHhi1HtifiHHHF# 

subroutine  savenr(index) ; 

integer*2  index; 

common  /blkl2/idold,  idnew; 

integer*2  idold(lO),  idnew(lO); 

common  /blkl3/mr,ptr ; 
integer*2  mr (21 , 50) ,ptr ; 

for(i=l;i<=10;i=i+l) 

{ 

mr(i,ptr)=idold(i); 

nr(i+10,ptr)=idnew(i) ; 

> 
index=ptr ; 
ptr=ptr+l ; 
return; 
end 


//*  **  **  ***********************************************************  ***** 

if 

if  GET  M  E  N 

# 

//**********  *************************************************  ********** 

t 

if   Initial  release  —  hn/3  november  79 

//  NAME: 

if  getr.en(irec) 

if   FUNCTION: 

if  get  the  menu  record  number  for  a  renu 

if  whose  menuid  is  in  ipredm 

if   OUTPUT  PARAMETER: 

if  irec  —  record  number  of  first  menu  record 

// 

subroutine  getmen(irec) ; 
integer*2  irec; 

common  /blk4/menuid,  ipredm; 
integer*2  menuid(lO),  ipredm(lO); 

common  /blkl3/mr,ptr; 
integer* 2  rr(21,50),ptr; 

irec=C;  if   preset 

1*1;     if   index  in  mr 
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while(i<ptr    &   irec==0) 
{ 

j-11;    //   index   for    first    character   of    r.enuid 
while(irec==0   &   j<=20) 

{ 

if(mr(j,i)    !=   ipredn(j-lO))    break 

else    if(j>=20) 

{  irec=nr (21 , i) ;  break;} 

else  j=j+l; 

> 

> 

return; 
end 


// 

#  U  P  D  U   R 

// 

i 

it   Initial  release  —  hn/3  novenber  79 

f   NAME: 

//  updnr 

it   FUNCTION: 

//  read  all  r.enu  directory  records  fron  renufile  and  write 

if  then  to  nenuout 

it  retrieve  record  numbers  for  nenuid's  stord  in  r,r 

it  and  store  then  in  mr« 

//  ALGORITHM: 

it  open  files  for  read  fron  renufile,  write  to  nenuout 

it  while  there  are  nore  directory  records 

it  read  a  record 

it  for  all  entries  in  record 

it  conpare  it  with  nr  entry 

it  if  found  store  record  number 

//  update  directory  record  (new  nenuid  &  rec  nunber) 

//  if  still  entries  in  nr 

//  create  new  entries  in  directory 

//  write  record  to  nenuout 

it 

ttmmmmmmmmmmmfitmmMmmmmmtMitm 

subroutine  updnr; 

conmon  /blkl3/nr,ptr; 
integer*2  mr(2i,5C),  ptr; 
connon  /blkl4/highr ; 
integer*2  highr; 
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common  /blkl 5 /if unct ; 
integer*2  ifunct; 

integer*2  rbuff(544),  dir(12,45),  pl,p2,p3; 

equivalence  (rbuf f (l),dir(l,l)); 

write(6,13) ;  13   f  orinat  ('updmr:    '); 

if  close   and   open   files 
call   coffwd; 

if  (ierror(104)    !=   0)    goto  9999;    //   if    END-OF-FILE 
icount=ptr-l ;         //   number    of    entries 
highr=0;  if   preset 

for(i=l ;i<=NDREC;i=i+l)    it    for   all   directory    records 
{ 

read (LUHR, 100)    (rbuf f (k) ,k=l , 544) ; 
100    format (544al) ; 

if (icount i=0)  { 

for(j=l ; j<=45; j=j+l)  it   for  all  record  entries 
{ 
if (dir(l,j)==C240)  #  first  empty  entry 
{ 
for(k=l;k<ptr;k=k+l) 

{ 

if (nr(21,k)==0) 
{ 

if  (  (k==2&  (if  unct==CRFATE  |  if  unct==Ii:iTr!) )  i 
(k!=2  &  dir(ll,j)==3240  &  dir(12, j )==8240) ) 
{  for(kk=l;kk<=10;kk=kk+l) 

mr(kk,k)=8240;  if   old  id's  now  empty 
break;  it   only  blank  the  next  one 
> 
> 
> 
> 

f or(n=l ;n<ptr ;n=n+l)        #  for  all  mr  entries 

{ 

for(l=l ; 1<=10; 1=1+1)      if   for  all  characters  of  menu-id 

{ 

if (mr(21,n) !=0)  break;  if   if  record  number  found 
if  (nir(l,n)  !=  dir(l,j))  break   //char  dont  match 
else  if(l==10)      //  menuid  found 
{ 
for(ll=l;ll<=10;ll=ll+l)   #  copy  new  menuid 

dir (11, j)»mr (11+10, n); 
p3=NDREC+l+((i-l)*45+j-l)*(r;iRF;C+i\,OREC);   //  rec  number 

if(p3>highr)  highr=p3; 
mr(21 ,n)=p3; 

call  intasc(p3,pl,p2) ;        if   convert  into  ASCII  coded 
dir(ll,j)=pl;  dir(12,j)=P2; 

icount=icount-l ; 
> 
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> 
> 
> 
> 

write(LUMW,200)  (rbuff (k) ,k=l,542) ; 

200  format (542al); 
> 

9999  if(icount>C) 

{ 

write(LUW,  777) ;  stop;  if   not  all  menu  natnes  found 

//  error  condition 

77/  forinat('  Not  all  r.enus  found  , check  input  —  stop'); 

> 
return; 
end 


ISO 


ne;<u  checker  pkograk 


ft****  ****  **  *****  ****  **  *********************  *  ********  **********  ******** 

if  * 

if  1.  II  C  H  E  C  K 

//  * 

//  ******  ***  *  *****  *  ***  *  **  ******  *  ***********  ***************************** 

§ 

if   Initial  release  —  hn/1  Oct  79 
if   NAME: 

if  ir.check 

f  FUNCTION: 

if  print  image  of  a  menu 

if  print  input  options  of  a  r.enu 

if  print  directory  records 

if   CALLING  PROGRAIi: 
if  RT-ll 

if   INPUT: 

//       text  file  with  all  needed  information  having  the  format 
if  described  below. 

if   NOTES: 

if  This  is  an  off-line  progran. 

//       It  interprets  a  standard  input  in  certain  format. 
if  Input  may  be  files  or  any  input  device.  Each  line 

if  of  input  has  to  be  in  the  following  formats 

(  line  number  ) : 


if 
if 
t    (1) 

// 
if 
if 


:    function 

6  =  primag  -  print  image  of  a  menu 
1   =  propt   -  print  input  options  of  a  menu 
5  =  prdir   -  print  directory  records 


if   The  following  formats  will  depend  on  the  functions. 

if 

if   for  all  input  files: 

if    (1)  :  function  code 

if 

if   for  primag, propt 

It    (2)  :  menu-id  (10  character) 

// 


define 

LUR 

5 

define 

LUw 

6 

define 

LUhR 

1 

define 

LU1IW 

8 

define 

LUTTD 

4 

define 

NDREC 

20 

define 

NIREC 

4 

define 

NOREC 

2 

if   logical  unit  for  read 

if   logical  unit  for  write 

//  logical  unit  for  menu  file  read 

if   logical  unit  for  menu  file  write 

if   logical  unit  display 

//  number  of  directory  records 

//  max  4  records  for  image 

if   max  2  records  for  input  options 
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#  function 

PREDti 

C 

DELETE 

1 

CHEAT E 

2 

UPDATE 

3 

SUCCM 

4 

PRINTD 

5 

PRINTI 

6 

PRINTO 

7 

INITM 

3 

codes  from  input  file 

it   find  a  menu  id  in  directory 

it    (  id  in  ipredn) 

//   delete    menu    id    in    directory 

it   insert    a   new  n.enu    id    in   directory 

it   find    a   rr.enu    id    in    directory 

it    (id    in   i..enuid) 

it   find  raenuid  of  successor  menu 

it   print  the  contents  of  directory 

it   print  imape  of  a  nenu 

if   print  input  options  of  a  nenu 

//  create  the  initial  renu 


it    code  for  button  locations 
define   LCCA     1        it   button  row  below  the  text 
define   LCCB     2        it   button  row  beside  text 
define   LOCC     3       it   button  collumn  beside  text 


it   symbolic  names  for  fixed  margins 

define   LEFTM  8  it   left  margin  of  menu  field 

define   LEFTP  2  it    left  rr.argin  of  permanent  buttons 

define   LIARG  20  it   lower  margin  of  menu  field 

if   right  margins  for  button  rows/collunns 

define  RKARGA  73  it   button  row  below  text 

define   R1IARGB  78  it   button  row  beside  text 

define   Ri-iARGC  78  it   button  collumn  beside  text 


DELTA 

2 

it 

mACEL 

2432 

IKOPTL 

15 

it 

INMAX 

37 

it 

IBUFFL 

80 

it 

ENDOFI 

8316 

it 

ENDOFR 

8318 

it 

TEXT 

15 

it 

BUTT 

14 

it 

SELOCK 

126 

it 

SP.ESP 

127 

it 

free  rows/coll  between  buttons 

image  storage  length  (bytes) 

word  length  for  each  input  option 

max  number  of  input  options 

input  buffer  length 

code  for  end-of-input 

code  for  end-of-record 

code  for  text  mode 

code  for  line  rode 

code  for  start-text/question-block 

code  for  start-response-block 


it   symbolic  input  parameter 

define  DONE  1  //  done 

define  KODOIIE  0  it   not  yet  done 

it   ASCII  character 

define   ESC  27  it   ESC 

define   CONTRO  15  it   CONTROL  0 

define  CONTRU  14  it   CONTROL  N 
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it   input  buffer 
integer*2  ibuf f (IBUFFL) ; 

if   storage  for  menu-id 
interer*2  menuid(lO); 

;,'  storage  for  menu-id  to  lookup  in  directory 
integer*2  ipredm(lO); 

it   storage  for  image 
integer*2  image ( IMAGEL ) ; 

k   storage  for  input  options 
integer*2  inopt (IKOPTL.INMAX) ; 

it   pointer 
integer*2  imagep        it   next  free  entry  in  image 
integer *2    inoptp        it   next  free  entry  in  inopt 

it   next  line  to  v/rite  on  display 
integer*2  lincnt; 

it   display  node 
integer*2  mode; 

//  function  code 
integer*2  ifunct; 

integer*2  idold(lO);     //  renuid  to  find  in  directory 
integer*2  idnew(lO);     it   menuid  to  store  in  directory 

it   r.enu  parameter 

integer*2  nblock;       /-'  number  of  text/question  blocks 

integer*2  nbutt;         it  number  of  buttons  for  a  block 

integer*2  iloc;         //  location  of  buttons  in  a  block 

integer*2  isize;        it  size  of  buttons 

integer*2  rentyp ;        it  menu  type 

integer*2  ipredr;       it  record  number  of  predecessor  rr:enu 

integer*2  ispace;       //  space  lines  between  text  blocks 
integer*2  irec,param, ichar ; 
integer*2  mr(21 ,  50)  ,ptr;        it   temporary  storage  for  menuid,rec  it 

integer  insave,irsave,iwsave;    #  file  descriptor  froc  open 

common  /blk 1 /image, imagep, inop t , inoptp ; 

common  /blk2/lincnt ; 

common  /blk3/mode; 

common  /blk4/menuid, ipredm; 

common  /blk5/ibuff; 

common  /blk6/nblock; 

common  /blk7/nbutt , iloc, isize ; 

common  /blk£/mentyp , ipredr ; 

common  /blkfJ/ispace ; 

common  /blk 1 1 /i r save , iwsave ; 

common  /blkl2/idold, idnew; 
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connon  /blkl3/nr , ptr ; 


#  specify  logical  unit  numbers  and 
it   open  nenufiles  fcr  read/write 

if   the  old  r.enu  file  'ir.enufile'  is  read  and 

if   it  is  written  onto  a  tenporary  menu  file  'r.enuout'. 

#  after  all  is  done,  'r.enuout'  is  copied  to  'menufile' 
call  setfiKLUIlR.'nenufile  '); 

it   preset  inopt ,  image, menuid,  ipredn,  ichar,nr 
Sor(i-l;i<-INMAX;i-i+l) 
{ 
for(j-l;j<-INOPTL;j-j+l) 

inopt(j,i)=8240;      it   SP.'O' 
> 

f  or  (i  =  l ;  K-IKAGEL ;  i-i+1 ) 

image (i)  =8240;  it  SP.'O' 

for(i-l;i<-10;i-i+l) 

< 

nenuid(i)=3240;  if  SP.'O' 

ipredn(i)«8240;  if  SP.'O' 

> 

ichar-8256;      it   SP.'@' 
ptr-1; 

for(i=l;i<-50;i-i+l) 
{ 
for(j=l;j<=21;j=j+l) 

mr(j,i)=0; 
> 


it   read  function  code 
read(LUR,1000)  ifunct; 
1000  format(i3); 

if  (ifunct— PRINTD)  call  prdir 
else 

< 

it   save  menu-id 
read (LUR, 100)  ibuff; 
100  format (80al); 

1-1; 

while(i<=10  &    ibuff (i)  !  =  ichar) 
{  nenuid(i)=ibuff (i);  1-1+1;  > 

if  (ifunct— PRINTI)  call  prir.ag 
else  if  (ifunct— PRIKTO)  call  prcpt; 
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} 


//   close    all    files 
rewind  LU1!R; 

end 


j^  ***********************************  :*•************************  ********* 

,'i 
U 

4  S   E   T  M  E   N 

n 
V 

$********************************************************************* 

u 
it 

if   Initial  release  —  hn/2  Oct  79 

it   NAME: 

//       setmen(irec) 

if   CALLING  PROCRAli: 

it  mcheck 

//  FUNCTION: 

//       prepare  store  for  new  and  old  menuid 

it  and  set  r.enuid  into  nr 

if   OUTPUT  PARAMETER: 

//       irec  —  index  of  menuid  in  nr 

if   INFORMAL  INPUT: 

//       menuid  -  nenu  id 

if   ALGORITHM: 

//       reset  tenporary  id  stores 

?/       copy  id's 

if  save  old  and  new  nenuid  in  nr,  return  index 

// 

It 

M  //  #  ?/  //  //  H£  4  ##  jf  a  ■;■  J  # ;}  #  #  if #  #  //  if  //  #  #  #  #  #  if  if  #  ,-;  /;  //#  #  #  #  #  -«$  if  if  if  if  if  if  if  if  if  if  if  if  if  i' if  if  if  if  ;f  i;  if  ^' if  :f 
subroutine   setmen(irec) ; 


integer*2  iflag,irec; 
integer*2  pl,p2; 
common  /blk4/menuid,  ipredr.; 
integer*2  menuid (10); 
integer*2  ipredn(lO); 

//  store  for  old  and  new  menuid 
common  /blkl2/idold, idnew; 
integer*2  idold(lO); 
integer*2  idnew(lO); 
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it   preset    temporary    storape   for    id's 
for(i=l;    i<=10;    i=i+l) 
{ 

idold(i)=8240;  it  SP.'O' 

idnew (i) =8240; 
> 

it   store  old  and  new  nenuid's 
for(i=l;i<=10;i=i+l) 
{ 

idold(i)=nenuid(i) ; 
idnew (i)=menuid (i) ; 
> 

#  save   menu  id    in   n.r 
call   savernr (0,irec)  ; 

return; 

end 


it  SAVE  M  R 

// 

jf'*********A*A*****A*AA**A*******A****A*A****A*A*AAA****AA 

it 

if  Initial    release  —  hn/3   november   7  9 

//  KATIE: 

it  saveur  (pi,  index) 

it   FUNCTION: 

it  store  old  and  new  nenuids  (idold, idnew)  into  mr  and 

it  return  the  index  in  r.r 

//       or  store  record  nunber  and  return  inaex 

it   OUTPUT  PARAMETER: 

it  index  -  index  in  cnr 

)/ 

U it it it  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it it  it  itit  it  if  ititit itit it it  it  it it it it it it  it  it  it  it  it  it  it  it  it  it  it  it  it  itit  it  it  it  it  it  it  it  it  it 

subroutine  savenir (pi , index) ; 

integer*2  index, pi; 
corair.on  /blkl2/idold, idnew; 
integer*2  idold(lO),  idnew(lO); 

conmon  /blkl3/nr ,ptr ; 
integer*2  mr(21 , 50) ,ptr ; 

if(pl==0){ 
for(i=l;i<=10;i=i+l) 

{ 

mr(i,ptr)=idold(i) ; 
mr(i+10,ptr)=idnew(i) ; 
> 
> 
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else   njr(21,ptr)=pl ; 

index=ptr ; 

ptr=ptr+l; 

return; 

end 


if 

ft  G   E   T   M   E   M 

it 

;**********>(**********<:****  ****************  **  **  ******  ***************** 

//   Initial    release  —   hn/3   novenber    /9 

if  L.AiiE: 

it  getnen(irec) 

//  FUNCTION: 

#  get  the  menu  record  nunber  for  a  menu 
if                 whose  r.ienuid  is  in  ipredn 

/•'  OUTPUT  PARAMETER: 

#  irec  —  record  nunber  of  first  menu  record 

subroutine  getmen(irec) ; 
integer*2  irec; 

coir.non    /bllcA/menuid,    ipredr.; 
integer*2   nenuid(lO),    ipredi.(lO); 

cor.cion    /blkl3/mr,ptr ; 
integer*2   nr (21 , 50) ,ptr ; 

irec=0;    f?   preset 

i=l;  ?/   index   in   r,r 

while(i<ptr    &   irec==0) 

{ 

j  =  ll;    ir   index   for   first    character   of    laenuid 

while(irec==0   &   j<=2G) 

< 

if(mr(j,i)    !=   ipredu(j))    break 

else    if(j>=20) 

{   irec=inr(21,i) ;    break;} 

else   j-j+1; 

> 
i-i+1; 
> 

return; 

end 
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^ *************************************************** ****************** 

# 

§  U  P  D  Li  R 

r- :********************************************************************  * 

it   Initial  release  —  hn/3  november  79 

#  NAME: 

//  updnr 

//  FUNCTION: 

if  read  all  menu  directory  records  frou  nenufile  and  write 

I!  then  to  uenuout 

if  retrieve  record  nunbers  for  nenuid's  stord  in  nr 

v  and  store  then  in  nr. 

it   ALGORITHM: 

i'f  open  files  for  read  fron  nenufile,  write  to  nenuout 

//  while  there  are  more  directory  records 

if  read  a  record 

it  for  all  entries  in  record 

it  conpare  it  with  nr  entry 

#  if  found  store  record  nunber 

if  update  directory  record  (new  nenuid  &  rec  nunber) 

//         write  record  to  nenuout 

// 

subroutine  updnr; 

common  /blkl3/nr,ptr; 
integer*2  nr(21,5G),  ptr; 
integer*2  pl,p2,p3; 

integer*2  rbuff(544),  dir(12,A5),  pl,P2,p3; 
equivalence  (ruuf f (l),dir(l,l)); 

i'f   close  and  open  files 
call  coffwd; 

if (ierror(lG4)  !=  0)  goto  9999;  il   if  CNU-OF-FILE 
icount=ptr-l ;    if   nunber  of  entries  in  nr 

for(i=l  ;i<=i;DREC;i=i+l)  if   for  all  directory  records 

{ 

read (LUMR, 100)  (rbuf f (k) ,k=l ,544) ; 
100  format (544al); 

if  (icount==0)  next;    //  done  no  nore  entries  to  check 
for(k=l;k<=45;k=k+l) 

{ 

dir(ll,k)=dir(ll,k)-8192; 
dir(12,k)=dir(12,k)-5192;     //  sub  SP 
> 

for(j=l; j<=45; j=j+l)  it   for  all  record  entries 
{  ' 
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for(n=l;n<ptr;n=n+l)        ,v  for  all  mr  entries 
{ 
pl=mr(21,n)  ; 

if(pl!=0  &  nr(ll,n)==0)  { 
call  intasc(pl,p2,p3) ; 
if (P2==dir(ll,j)  S  p3==air(12,j)) 
{  for(ll=l;ll<=lQ;ll=ll+l) 
mr (11+10, n)»dir(ll,j); 
icount=icount-l ; 
> 
> 
else  { 
for (1=1 ;1<=10;1=1+1)      #   for  all  characters  of  menu-id 
{ 

if(pl!  =  C)  break;   //  if  record  nunber  found 
if(mr(l,n)!-  dir(l,j))  break   //char  dont  match 
else  if(l==10)      //  menuid  found 
{ 
for(ll=l;ll<=10;ll=ll+l)   #  copy  new  menuid 

dir(ll,j)=mr(ll+10,n); 
p3=UDREC+l  +  ((i-l)*45+j-l)*("IREC+l!CREC);   //  rec  number 
or  ( 2 1 ,  n )  =p  3 ; 

call  intasc(p3,pl,p2) ;        //  convert  into  ASCII  coded 
dir(ll,j)=pl;  dir(12,j)=p2; 
icount=icount-l ; 
> 
> 
> 
> 
> 
> 

//  stop  if  not  all  menu  id's  found 
if(icount>0)  {write (6 , 19) ; 19  format ( 'Menu  id  not  found — stop' ) ;stop ; } 
9999  continue; 
return; 
end 

# 

#  PRIBAG 
// 

j^AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
// 

//  Initial  release  —  hn/1  november  79 

#  NAME: 

#  primag 
ft   FUNCTION: 

it  print  the  image  of  a  requested  menu 

it 

subroutine  primag; 
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conmon    /blkl3/:nr  ,ptr ; 
S.nteger*2   nr(21,50)  ,ptr; 
integer*2   dbuf f (544) ,pl,p2,irec; 


if   set    raenuid    into   tar 
call   setmen(irec) ; 

if   get    iaenu    record   nunber   frou  directory 
call   updcir; 
irec=iar(21 ,  irec) ; 

it   dur.my    read    over   all   preceeding    records 
i-1+NDREC; 
while(Kirec) 

< 

read (LUKR, 100)    (dbuf f (k) ,k=l, 544) ; 

100   format (544al) ; 

i=i+l; 

> 

it   read   and   print    up    to    four   iirage    records 
for(i=l;i<=4;i=i+l) 

{ 

read (LUI1R,  100)    (dbuf f  (k)  ,k=l,544) ; 

p2=l;         it   pointer  in  record, start  of  conr.and 

for(pl=l;pl<=540;pl=pl+l) 

{ 

if  (dbuff (pl)==S228  |  dbuf f (pl)«»8316)  it   CR  LF  or  ENDOFI 
{ 

pl-pl-l; 

if(pl>=p2)        #  do  not  print  successive  cr/lf 

write(LUW,100)  (dbuf  f  (1) ,  l=p2,pl ) ;        //write  connand 

pl=pl+l;  p2=pl+l; 

> 
if  (dbuf  f  (pi  )==EIJIJ0FI )  break;  if   read  next  record  if  any 
if (dbuff (pl)--ENDOFR) 

{  i=5;  break;  >  it   stop,  cone 

> 
> 

return; 
end 


f 

it  P  R  0  P  T 

8 

y ************************************************************ ********* 

it 

it   Initial  release  —  hn/2  november  79 

it   NAME: 
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it  propt 

it   FUNCTION: 

§  print  all  input  options  for  a  menu  specified  by 

$  menu-id  in  nenuid 

i 

W1}iH}###ltitiriHFitititifititihfiHh'f#i}####itiHtihtititititi(#it# 

subroutine  propt; 

common  /blk4/menuid, ipredm; 

integer*2  menuid(lO) ,ipredn(10) ; 

common  /bllcl /image,  imagep  ,inopt  ,inoptp  ; 

integer* 2  image ( II LA.CKL) ,  imagep  ,inopt  (INOPTL,  INIIAX)  ,inoptp  ; 

integer*2  pi , p2,p3,p4,p5,irec,mentyp,f lg; 

integer*2  p(5),  menu (10),   dbuf f  (544); 

integer*2  run,rp; 

common  /bllcl 3/mr ,ptr ; 

integer*2  mr (21 , 50) ,ptr ; 

integer  int ; 

equivalence  (inopt ( 1 , 1 ) ,dbuf f (1 ) ) ; 

call  setmen(irec) ;     //  set  menu 

call  updnr; 

l=mr(21 , irec)+4; 

btr-1; 

for(i=l;i<=50;i=i+l) 

< 

for(j=l;j<=21;j=j+l) 
mr(j,i)=0; 

> 

it  dummy    read    over    all    preceding    records 

i-1+NDREC; 
while(Kl) 

{  read (LUMR, 100)  (dbuff (k) ,k-l,544) ; 
100  format(544al); 
1-1+1; 
> 

it   read  both  records 
read  (LUIIR,  200)  (dbuf  f  (k)  ,k=l ,  2/2) ; 
read (LUMR, 200)  (dbuf f(k) ,k=271 , 542) ; 
200  format(272a2); 

run=l ; 

rp=l; 

if(l<=29)  p4=36  #  start  menu 

else  p4=29; 
int=inopt(3,p4) ;  #  number  of  input  options 

pl=int/256;  p2=mod (int , 256) ;  call  ascint (pi ,p2,p5) ; 

lr=l-4; 

torite(LUW,l)  (menuid (111) ,111=1, 1C) ,lr; 

1  format(//'Input  options  for  menu:    ', 10al/, 'first  record: ', i3/) ; 

write(LUW,2)  p5;  2  format ( 'number  of  input  options :', 13) ; 
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int=inopt (2,p4) ; 

pl=int/256;    p2=mod(int ,256) ;    call   ascint (p 1 ,p2 ,p3) ; 

write(LUW,3)    p3;    3  f  crmat  ( 'menu    Cype:',i3); 

P2-inopt(l,p4)/256; 
int=inopt (1 ,p4) ; 
p3=mod(int ,256) ; 
call  ascint (p2,p3, pi) ; 
call  saven.r(pl,  irec) ; 

while(run<=2)  { 
[f(run— 2) 

< 

write(LUW,4)  (mr(l,rp) ,1-11 ,20) ; 

4  forr.at  ( 'predecessor  menu:  ',lCal); 

rp-rp+1; 

> 

#  print  entries  of  each  input  0[)tion 
for(p4=l;  p4<=p5;  p4=p4+l) 
{ 

//  convert  coordinates  and  action  code  into  integers 
lor  ( 1-1  ;1<«5;  1-1+1) 
{ 

pl=inopt(l+6,p4)/256;  p2=rod (inopt (l+6,p4) , 256) ; 
call  ascint (pi, p2,p(l) ) ; 
> 

if(run--2)  < 

write(LUU,6)  p4;  &  format  (//'input  option', i3); 

write(LUU,7)  inopt(l,p4);  7  format  ('label:  ',al); 

write(LUW,8)  (inopt (1, p4) , 1=2, 6) ; 8  format ('log  command:  ',5a2); 


write(LUU,9)  p(l);  9  format ('button  left  collunn: ' , i3) ; 
HTite(LUU,10)  p(3);10  format ('button  right  collurn: ' ,i3) ; 
write(LUU, 11)  p(4);ll  format  ('button  upper  row:',  13); 
write(LUU,12)  p(2);12  format ( "button  lower  row:', 13); 
write(LUW,13)  p (5) ; 13  format ('action  code:',i3); 
> 

if(p(5)==l)  it   read  menu 

< 

pl=inopt(12,p4)/256;  F2=mod (inopt (12, p4) ,256) ; 
call  ascint (pi ,p2,p3) ; 
if(run==l)  call  savemr (p3,irec) 
else  { 
write(LUW,14)  (mr(l,rp) ,1-11,20) ;  14  format ('successor  menu:  ',10al); 
rp=rp+l ; } 

> 
else  if(p(5)==2  |  p(5)==4)      #  return  character 

{ 

if  (run— 2) 

write(LUW, 15)  inopt (12, p4) ;  15  format ('character  to  return:  ',al); 
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> 

else  if   return    integer 

{ 

if(run==2)    { 

pl=inopt(12,P4)/256;    p2=r.od(inopt  ( 12  ,p4) ,  256)  ; 
call   ascint(pl,p2,p3) ; 
if(p(5)==3)  if   integer 

< 

write(LUW, 16)  p3;  16  format ( 'integer  to  return: ' ,i3) ; 

> 
else  if(p(5)==14) 

{ 

write(LUW,17)  p3;  17  format ('new  task  id:', 13); 

> 
else;  v  do  not  knov/  yet 

> 

> 
> 
rp=l;    run=run+l;    if(run<=2)    call   updnr;    } 

return; 

end 


&  ***************  *  ***  A****  A*********  A  *******  *************************** 

it 

if  P  R  D   I   R 

// 

//********************************************************************* 

it 

it   Initial    release   —   hn/3   noveinber    /  (J 

it  NAME: 

if  prdir 

if   FUIICTIOIJ: 

//  print    the   contence    of    all    directory    records 

# 

S#######T^  #  ##f/f'/##*£#7/##  ##//#//####S!##  ###//####«t//  ##  ?/#  //  //#####  #7^  ###  ##//#  ##//  ### 

subroutine  prdir; 

integer*2  dbuff(544),  im(12,45),  p(45); 
integer*2  pi, p2, flag; 
equivalence  (dbuff(l) ,im(l, 1)) ; 


write(LUW, 1) ;  1  format (//'These  are  the  directory  records'//); 

it   print  all  records 
for(i=l;i<=:;DREC;i=i+l) 
{ 

flag-0; 

read (LUIIR,  100)  (dbuf  f  (k)  ,k=l  ,544) ; 
100  format (544al); 
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write(LUU,2)  i;  2  format (/'record  number:  '  ,i3) ; 

for(k«l;k<-45;k-k+l) 

< 

pl=irc(ll,k)-8192;  p2«im(12,k)-8192; 

call  ascint (pi ,p2,p(k) ) ; 

if(p(k)==243)   p(k)-0; 

If (im(l,k) 1-8240)  flag-1; 

> 

#  write  nenuid's  and  record  numbers 
|£(flag!-0)  { 
for(k=l;k<=43;k»k+3) 

{ 

11-k;    i2=k+2;    //   Units    for    3   entries 

write(LUW,3)    ( ( (ira(n,l) ,n=l , 10) ,p(l) ) , 1=11 ,12) ; 

3   format(3(10al,i3,2x)); 

> 
llag-0;    > 
else 

write(LUT,J,  77) ;  77  format  ('There  are  no  entries'); 
> 

return; 
end 


if 

t  3.1   C  0  F  F  W  D 

# 

jf  *****************************************  A  *******  *  *  ****************** 

/; 

//  Initial  release  —  hn/31  October  79 

if   NAME: 

i  coffwd 

if   FUNCTION: 

if  close  menufile 

if  open  r.enufile 

if  read  from  menufile 

if 

if   ALGORITHM: 

//       close  file 

it  rewind  file 

if  connect  logical  unit  number  and  file 

jt 

subroutine  coffwd; 

common  /blkl 1 /irsave,iwsave; 
integer  irsave, iusave ; 

rewind  LUMR; 
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tall   setfil(LULR,'nenufile    '); 


return; 
2nd 


If 

%  I    N    T   A   S    C 

i 

if  ***************  *  ***********  *  *  *  *********  *  **  *************************** 

r  Initial  release  —  hn/31  October  79 

?  NAME: 

'/       intasc(inp,outl  ,out2) 

£  FUNCTION: 

If  Conversion  of  an  integer  (0-900)  into  two  integer*2  ASCII  codes 

'/  ALGORITHM: 

9  outl-  inp/30  +40  (range  ASCII  40-70) 

if  out 2=  mod(inp,30)  +40  (range  ASCII  40-69) 

f 

subroutine  intasc (inp,outl ,out2) ; 

Lnteger*2  inp ,out l,out2; 
integer  nunl ,num2; 

^unl=inp ; 

3utl=inp/3C+40; 

nun2=nod  (nuril ,  30)  ; 

Dut2=nui.i2+40; 

return; 

end 


^ *************  ************************  ******************* ************* 

f 

if  A  S   C  I  K  T 

9 

jf  **************************************************************  ******* 

if 

if  Initial   release  —  hn/31   October   79 

it  NAME: 

//  ascint  (inl  ,in2,outp) 

#  FUNCTION: 

it  Conversion   of    an   ASCII    coded    number    (0-900)    into 

if  an    integer*2  value 

if  ALGORITHM: 
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//  outp=    (inl-40)*30  +    (in2-3C) 

fe#  #  #  #  #  #  #  //  f^  #  *  #  #  #  fA  #  #  #  #  #  #  #  w^  #  #  #  #  #  #  #  #  #  #  #  #  #  #  #  #  #  #  //  #  #  #  #  #  #  //  #  #  #  #  #  #  #  //  #  #  #  //  #  //  ^  f/  //  #  # 

subroutine  ascint (inl,in2,outp) ; 

integer-2  inl,in2toutp; 

outp=(inl-40) *30+in2-4C ; 

return; 

end 
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PATCH    FOR   RT-11 


;  PATCH 

10  TO  0' 

rs 

.TITLE 

$FCKNL 

.IDENT 

/03/ 

.PSECT 

OTS$I 

S  =  . 

JSP 

PC,  PAT 10 

NOP 

CMP 

R1,R0 

FAT10: 

.GLOEL 

$KLCHN 

MOV 

4(R3),R0 

ADD 

#$H"LCHI!,R0 

CMP 

kl,RC 

RTS 

PC 

.EKD 
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ASCII 

BG 

CRT 

DEC 

FC 

HP 

I/O 

LED 

NAVCOhSTA 

SATCOM 

SB 

SSA 

PB 


LIST  OF  ABBREVIATIONS 

-  American  Standard  Code  for 
Information  Interchange 

-  Background 

-  Cathode  Ray  Tube 

-  Digital  Equipment  Corporation 

-  Fo  r eg  round 

-  Hewlett-Packard 

-  Input -Output 

-  Light  Emitting  Diode 

-  Naval  Communication  Station 

-  Satellite  Communications 

-  Status  Block 

-  SATCOM  Signal  Analyzer 

-  Parameter  Block 
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